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Introducción 


Este libro pretende enseñarle algunas de las técnicas de programación gráfica 
que podrá usar en su ordenador Amstrad. Hay capítulos que tratan de ani- 
mación, con caracteres o con dibujos, de realización de gráficos y de histo- 
gramas, de formas geométricas y de otras muchas cosas. 

Cada capítulo contiene una serie de programas de ejemplo, muchos de los 
cuales le serán de gran utilidad. Así, el capítulo 2 contiene un programa que 
permite diseñar caracteres propios y archivarlos en cinta; el capítulo 3 contie- 
ne programas para realizar diagramas de barras y de sectores; el 4 y el 6, pro- 
gramas para la realización de dibujos en la pantalla y su almacenamiento en 
cinta. 

Se suponen conocimientos clementales de BASIC, con algo de manejo de 
bucles, decisiones condicionales y subrutinas. Aunque los principiantes dis- 
frutarán comprobando los programas escritos en el libro, sacarán mayor 
provecho si leen antes otro libro del que soy autor: “Programación Basic con 
Amstrad”, también publicado por Amstrad España. 

Para los que ya conocen BASIC pero no han leído mi otro libro, comienzo 
por resumir en el capítulo 1 lo más interesante de lo que toca a los comandos 
gráficos del Amstrad. 
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Modos y colores 


LA PANTALLA 


En la vida real existen distintos tipos de papel para las diferentes activida- 
des. Un arquitecto no dibuja en una libreta los planos de las casas, de 
la misma manera que no es usual que un novelista escriba sus historias 
en papel de dibujo. En el ordenador, la pantalla es lo que se utiliza como 
papel, y es normal que tenga aspecto y textura diferentes cuando se la uti- 
liza para misiones diversas. 

Elcomando MODE, seguido del número 0, 1 0 2, sirve para seleccionar 
uno de los tres aspectos posibles de la pantalla del Amstrad. Cada modo 
se distingue por el número de caracteres que admite en cada línea, por la 
cantidad de colores que permite utilizar simultáneamente y por el grado 
de resolución gráfica (o sea, la finura con la que se pueden dibujar las lí- 
neas). 


[ modo Número de líneas | Caracteres por línea | 


| o 25 | 20 
2 25 80 


Figura 1.1. Los tres modos de la pantalla del Amstrad. 


El modo 2 es el ideal para tener en pantalla gran cantidad de texto; en 
este modo, el Amstrad permite 25 líneas de 80 caracteres cada una, 

Cuando se enciende o se inicializa el Amstrad, la pantalla se pone auto- 
máticamente en el modo 1. Este modo da 25 líneas de 40 caracteres, Bl 
modo 1 proporciona la escritura más legible; es el habitual cuando se es- 
tán utilizando los comandos del Amstrad. 
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El modo O da 25 líneas con sólo 20 caracteres cada una. Es el mejor 
para realizar figuras en color, ya que admite 16 colores simultáneos. 

En cualquiera de los tres modos, se puede escribir en cualquier posición 
de la pantalla utilizando coordenadas de texto: 


10 MODE 1 
15 PRINT "Escribir comenzando en (10,12)." 
20 LOCATE 10,12 

30 PRINT "Aqui es" 


La posición del primer carácter que se escriba será (10, 12). Los números 
10 y 12 son las coordenadas de texto de la posición. La primera es la 
coordenada X' (la posición del carácter en la línea) y la segunda la coorde- 
hada Y (la línea en la que está el carácter, empezando a contar desde arri- 
ba). La instrucción LOCATE 10.12 es la que hace que comience la escri 
tura en dicha posición. Se puede usar el comando CLS para borrar la 
pantalla después de ejecutar el programa. 

Los números que se pueden utilizar como coordenada X de texto difie- 
ren en los diferentes modos de la pantalla, puesto que el número de carac- 
teres por línea es distinto en cada uno de ellos. 


12 39.40 


24| 


Figura 1.2. La pantalla en modo 1. 


Si tuviésemos que limitarnos a escribir símbolos en las posicioes de ca- 
racteres de la pantalla, las posibilidades de realizar gráficas aceptables se- 
rían muy limitadas. Las 25 líneas de 80 caracteres del modo 2 no permi- 
ten más que resultados muy pobres a la hora de realizar dibujos a base 
de caracteres. Afortunadamente, cada posición correspondiente a un ca- 
rácter puede dividirse en pequeños trozos; cada uno de ellos es un punto 
(o pixel). 

Dibujando a base de puntos individuales, en lugar de caracteres, se pue- 
den trazar líneas bastante finas. El tamaño de los puntos depende del 
modo de pantalla, de la misma mancra que era variable el número de ca- 
racteres por línea y el tamaño de cada carácter. 

El sistema de coordenadas de texto no es adecuado para describir la po- 
sición de un punto, ya que cada posición de carácter abarca varios pun- 
tos. El Amstrad usa un sistema de coordenadas diferente para las posi- 
ciones de los puntos; se trata de las coordenadas gráficas. 


La pantalla gráfica 


El sistema de coordenadas gráficas funciona de manera diferente del de 
las coordenadas de texto. La pantalla gráfica está dividida horizontal- 
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Figura 1.3. La pantalla gráfica; se muestra el punto (200, 300). 
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mente en 640 puntos y verticalmente en 400. La posición de cada punto 
se identifica por su distancia a los bordes izquierdo e inferior de la pan- 
talla, 

La posición del punto de la figura 1.3 es (200, 300). Observe que la se- 
gunda coordenada se mide desde el borde inferior de la pantalla, y que 
el punto de la esquina inferior izquierda de la pantalla tiene coordenadas 
gráficas (0,0). Al principio esto puede resultar algo difícil de recordar ya 
que, para las coordenadas de texto, es el carácter superior izquierdo de 
la pantalla el que tiene coordenadas (1, 1). Observe además que las coor- 
denadas gráficas comienzan a partir de 0, de manera que el punto de la 
esquina superior derecha de la pantalla tiene por coordenadas gráficas 
(639,399), no (640, 400) como también cabría pensar. 

El programa siguiente muestra el uso de dos de los comandos gráficos 
del Amstrad: 


10 MODE 1 
20 MOVE 124,156 
30 DRAW 300,300 
40 DRAW 200,400 
50 DRAW 124,156 


Con él utilizamos el cursor gráfico para dibujar líneas en la pantalla. 

Normalmente el cursor gráfico y el de texto permanecen juntos, pero, 
en cuanto se utiliza un comando gráfico, se está usando el cursor gráfico 
(invisible). 

El comando MOVE de la línea 20 hace que el cursor gráfico se coloque 
en el punto (124, 156), aunque permanece siempre invisible, El comando 
DRAW lleva el cursor desde el punto (124, 156) hasta el (300, 300), dibu- 
jando una recta entre ambos. Los otros dos DRAW de las líneas 40 y 50 
dibujan los dos lados restantes de un triángulo. 

Así pues, MOVE x.y lleva el cursor gráfico al punto (x, y) sin dibujar 
ninguna línea. DRAW xy, en cambio, dibuja una recta desde el último 
punto visitado por el cursor gráfico hasta el punto (x, y). Es sencillo di- 
bujar figuras de cierta complejidad almacenando las coordenadas x e y 
de los puntos en sentencias DATA y haciendo que el programa vaya le- 
yendo estas coordenadas: 


10 MODE 
20 x=1 

29 REM dibujo a base de MOVE y DRAW 
30 WHILE 190 

40 READ x,y 
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50 READ 11, yl 
60 MOVE x, y 

70 DRAM xi, yl 

80 LOCATE 1,24:PRINT 5" "pyjirs="" WHILE resta 
FS=INKEVS: UEND 

90 WEND 

108 END 

110 DATA 38,162,344, 174,344,174,360,216,360, 216 
,364,760,364,260, 360, 310 

120 DATA 340,310,336,344,336,344,292, 386,292, 356 
,248, 352,248, 352, 212,342 

130 DATA 212,342,200,316, 200,316, 196,246, 196, 246 
+200,214,200,214, 216,174 

140 DATA 216,174,252,166,316,198, 380,190, 300, 190 
+272,190 

150 DATA 272,19B,256, 198,244,200,244,21D,244, 204 
+ 324, 204,324,208,324, 198 

168 DATA 256,238,268, 232, 268,232, 288, 232, 288, 232 
+296,242,276,242, 276, 284 

170 DATA 288,204,300,296, 300,296, 324, 286,324, 286 
,288, 282,264, 282, 252, 294 

180 DATA 252,294,232,280, 232,280, 264, 280, 194, 200 
,180,276,180,296, 172, 266 

190 DATA 172,266,192, 236, 364,236, 334, 266, 384, 266 
,380, 294,380, 294, 364, 282 

200 DATA 320,348, 332,324, 312,324, 312, 352,288, 354 
,292, 326,272, 354,280, 326, 264,348 

210 DATA 224,344,216,334,264,344, 260,220, 268,218 
1272, 216,272,230,276,228, 276,214, 290, 214, 280,230 
,280, 230,284, 212 

220 DATA 288,712, 284,230, 288,228, 288,220 

230 DATA -1,-1 


Es posible conseguir efectos gráficos bastante impresionantes con sólo las 
sentencias MOVE y DRAW. Para conseguir curvas, se utilizan rectas de 
pequeña longitud empalmadas sucesivamente. 


10 x=100:y=100 
20 maximo=300 

30 increnento=10 

40 FOR numero=0 TO maximo STEP incremento 
50 MOVE xenumero, y 
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60 DRAW x+maxino, y+numero 
70 MOVE «, yenunero 

BO DRAW x+numero, y+maximo 
90 NEXT 


Resol 


ión en los diferentes modos de pantalla 


Aunque la pantalla gráfica está dividida horizontalmente en 640 puntos 
y verticalmente en 400, el Amstrad no puede discriminar realmente todos 
esos puntos. Además, el poder de discriminación de puntos depende del 
modo de pantalla, aunque todos los modos utilicen la misma pantalla grá- 
fica. Ejecute el programa anterior cambiando la línea 1 por la siguiente: 


1 MODE 


El dibujo es el mismo de antes, pero resulta más basto porque las líneas 
son más gruesas. Pruebe ahora el siguiente programa: 


10 MODE 2 
20 MOVE 200,300 
30 DRAW 200,399 
40 MOVE 281,200 
50 DRAM 281,399 
60 MOVE 202,100 
70 DRAW 202,399 
80 MOVE 203,0 

90 DRAM 203,399 


Las líneas son ahora mucho más finas. El modo 2 es el denominado mo- 
do de alta resolución, ya que permite distinguir 640 puntos en horizontal 
y 200 en vertical; por eso resultan tan finas las líneas cuando se utiliza 
DRAW en este modo. 

En el modo 2 no se pueden distinguir en vertical dos puntos consecuti- 
vos; los puntos (10, 10) y (10, 11) son exactamente el mismo punto. Los 
modos 1 y 0 tienen en vertical la misma resolución de 200 puntos que el 
modo 2, pero bajan mucho en resolución horizontal. Escriba lo 
siguiente: 


y ejecute el programa. El modo 1 es el de media resolución; sólo permite 
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distinguir horizontalmente 320 puntos. Esto hace que, en modo 1, los 
puntos (200, 300) y (201, 300) sean tratados como si fuesen un mismo 
punto. Escriba ahora: 


10 MODE 0 


y ejecute el programa por tercera vez, El modo O es el de baja resolución, 
pues sólo puede distinguir 160 puntos en horizontal. 

Puede producirle extrañeza el hecho de que alguien elija realizar los di- 
bujos en el modo más basto, cuando es posible la alta resolución del mo- 
do2. La razón es que, aunque el modo 0 da la menor resolución, permite 
en cambio utilizar 16 colores simultáneos en la pantalla. En este aspecto 
son inferiores los modos | y 2, como muestra la figura 1.4. 


[modo Resolución gráfica | Número de colores simultáneos 
o 


160x200 2 
1 320x200 4 
2 640x200 16 


Figura 1.4. Resolución gráfica y múmero de colores disponibles 
simultáncamente en los diferentes modos de pantalla. 


El ordenador tiene una capacidad de memoria limitada: sólo puede al- 
macenar en la RAM una cierta cantidad de información sobre la pantalla. 
Se trata entonces de llegar a un compromiso, como en tantos otros aspec- 
tos de la informática. Se puede utilizar la RAM para guardar informa- 
ción sobre muchos puntos con 2 colores posibles, o de menos puntos con 
4 colores, o de muchos menos puntos con 16 colores. El Amstrad le da 
a elegir; usted debe escoger lo que más le interese en cada caso. 


La sentencia PLOT 


Las líneas que hemos dibujado en los programas precedentes están forma- 
das por puntos. El Amstrad puede dibujar los puntos uno por uno, si 
bien en modo 2 es difícil distinguir puntos aislados. De hecho, cada 
punto está realmente formado por varios puntos físicos de la pantalla; 
ninguno de los modos es lo suficientemente fino como para identificar un 
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solo punto de pantalla. Lo que nosotros denominamos punto es el menor 
bloque de puntos de la pantalla que es posible singularizar en cada uno 
de los modos. 


Modo 0 punto 4x2 
Modo 1 punto 2x2 
Modo2 | | punto 1x2 


Figura 1.5. Tamano de los puntos gráficos en cada modo de pantalla 


Parece raro permitir que el sistema de coordenadas indentifique más 
puntos de los que pueden ser dibujados en cualquiera de los modos. La 
razón principal para ello es que así queda abierta la posibilidad de mejo- 
rar en el futuro la resolución gráfica sin que haya que cambiar completa- 
mente el sistema de coordenadas. 

La instrucción PLOT sirve para dibujar un punto aislado. Funciona de 
la misma manera que MOVE o DRAW; la palabra PLOT debe ir seguida 
de las coordenadas gráficas del punto que se desca dibujar. El siguiente 
programa dibuja seis puntos distintos: 


10 MODE Q 
20 PLOT 160,200 
30 PLOT 320,200 
40 PLOT 324,200 
50 PLOT 328,200 
$0 PLOT 332,208 
70 PLOT 480,200 


En el modo 0 los puntos son tan anchos que los cuatro, que se dibujan 


Mopos Y coLorks 9 


entre las líneas 30 4 60 quedan unidos formando un pequeño segmento 
de recta. En modo 1 los mismos puntos quedan separados. En modo 2, 
los puntos son tan pequeños que le resultará difícil distinguirlos. 


LOS COLORES 


Al encender el Amstrad, el texto y los gráficos aparecen en color amarillo 
sobre fondo azul, independientemente del modo en el que se trabaje. En 
realidad, se dispone de 27 colores diferentes, no todos ellos perfectamente 
distinguibles unos de otros. Cada color tiene asignado un número; para 
referirse a un color se utiliza siempre ese número en lugar del nombre del 
color. 


| Número | Color 
o [Negro 
1 [Azul 
2 | Azal intenso 
3 |Rojo 
4 | Magenta (rojo+azul) 
5 | Malva 
6 | Rojo intenso 
7 | Morado 
8 | Magenta intenso 
9 | Verde 
10 [Cyan 
11 | Azal celeste 
12 | Amarillo 
13 — | Blanco 


17 — | Magenta pastel 
18 — | Verde intenso 

19 — | Verde marino 

20 | Cyan intenso 

21 | Verde lima 

22 | Verde pastel 

23 | Cyan pastel 

24 — | Amarillo intenso (dorado) 


Figura 1.6. Los 27 colores del Amstrad con sus números de identificación. 
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Conviene ahora advertir que el Amstrad no trabaja sobre toda la panta- 
lla, sino sobre un gran rectángulo de la misma. Este rectángulo está ro- 
deado por un borde que no se utiliza. Al encender el ordenador, el borde 
está del mismo color que el fondo de la pantalla. Este borde no forma 
parte de la memoria del ordenador, ya que no se escribe ni se dibuja nun- 
ca en él. 


E borde puedo ser de cualquier 
color en cualquier modo. 


Los colores que se usan en el área. 
de texto dependan del modo de 
Panta. 


Figura 1.7. El borde de la pantalla en su monitor o televisor. 


El borde puede tener cualquier color en cualquier modo. No existen 
restricciones sobre el color que se emplee para el borde. El modo 2 sólo 
puede utilizar dos colores en la pantalla, pero en cambio el borde puede 
tomar cualquier otro color (de los 27 disponibles). Ejecute las instruccio- 
nes: 


10 MODE 2 
20 BORDER O 


Según la figura 1.6 el O es el número del color negro. Al ejecutar BOR- 
DER 0 hemos teñido de negro el borde de la pantalla. Se puede cam- 
biar el O por otros números, entre O y 26, para probar el efecto de dis- 
tintos colores del borde. Por ejemplo, BORDER 26 pone el borde de 
blanco. 

En los modos O y 1 el borde funciona de la misma manera. Como se 
puede observar, el cambio de modo de pantalla no modifica el color del 
borde. Al encender el ordenador el borde se pone automáticamente de 
color azul, como con BORDER 1. 
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También se puede cambiar los colores que se utilizan en el rectángulo 
principal de la pantalla. Pero aquí interviene la cantidad de memoria que 
se utiliza en el almacenamiento de la pantalla a la hora de restringir el nú- 
mero de colores que pueden ser utilizados simultáneamente. 

Vamos a ver cuál es la situación al encender el ordenador. Más adelan- 
te veremos cómo se puede cambiar esta situación con el comando INK. 

Comenzaremos por hacer algún ensayo. Escriba MODE O y PEN 4. 
Como “pen” significa pluma y el 4 es el número del color magenta, ca- 
bría esperar que el texto fuese en adelante de este color. Sin embargo, 
todo lo que se escriba de ahora en adelante será de color blanco. Si se 
teclea PÉN 5, la pluma comienza a escribir en negro. Finalmente, si se 
teclea PEN 14 el texto que se escriba quedará parpadeando entre los colo- 
res amarillo y azul. 

Lo que ocurre es que en modo 0 hay 16 tintas disponibles; la instrucción 
PEN lo que hace es cargar la pluma con una de esas tintas. La figura 1.8 
indica de qué colores son inicialmente las 16 tintas en el momento de en- 
cender el ordenador. 


Número de 

Pano Sapen | Modo 0 | Modo 1 | Modo 2 
o 1 1 1 
1 | 2 24 
2 | 2 1 
3 $ 6 24 
4 2% 1 1 
5 op 2 24 
6 2| 2 1 
7 B 6 24 
8 10 1 1 
9 n| 2 24 
10 “| 2 1 
" 16 | 5 24 
n 18 1 1 
B a| 2 24 
14 ya | 2D 1 
15 16/11 6 24 


Figura 1.8. Los colores de las tintas al encender el ordenador, 
'Ún color doble (tintas 14 y 15 del modo 0) indica una tinta 
parpadeante entre los dos colores indicados. 
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Además de la pluma, también se puede cambiar el color del fondo con 
la instrucción PAPER (o sea, papel). Esta instrucción asigna para el fon- 
do una tinta determinada. Comience por inicializar el ordenador median- 
te las teclas (CTRL) (SHIFT) (ESC) y teclee MODE O. Teclee luego 
PAPER 3. Lo que escriba a continuación aparecerá sobre fondo rojo, 
que es el color de la tinta número 3 (el color 6). Si quiere que cambie todo 
el fondo de la pantalla a este color, utilice el comando CLS. PAPER per- 
mite en modo 0 utilizar para el fondo cualquiera de las 16 tintas posibles, 
incluidas las parpadeantes. 

Ahora podemos combinar las dos sentencias que hemos visto para se- 
leccionar los colores del texto y el fondo. Por ejemplo, 


PEN 3 
PAPER 4 
5] 


selecciona caracteres rojos sobre fondo blanco en el modo 0. 

Con los modos 1 y 2 todo ocurre de forma parecida, pero se pueden 
seleccionar menos tintas. En modo 1 las 16 tintas se reducen en la prásti- 
ca a 4, y en el modo 2 se reducen a dos. En el modo 2, ocho tintas son 
del color amarillo y otras ocho del azul, aunque estos colores se pueden 
cambiar por otros dos cualesquiera. Conviene que observe en la figura 
1.8 que una misma tinta puede tener colores diferentes en los distintos 
modos de pantalla. La principal consecuencia de este hecho es que un 
programa que trabaje perfectamente en el modo O puede no funcionar 
cuando se lo ejecuta en modo 2, si las tintas de la pluma y del fondo pro- 
ducen un mismo color en este último modo, 

Naturalmente, los comandos PEN y PAPER se pueden utilizar también 
incluídas en líneas de programa, como por ejemplo: 


10 MODE 0 

20 LOCATE 4,7 

30 PEN 3 

40 PAPER 5 

50 PRINT "Rojo sobre negro" 
60 LOCATE 4,13 

70 PEN 6 

00 PAPER 3 

90 PRINT "Azul sobre rojo" 
100 LOCATE 4,19 

110 PEN 5 

120 PAPER 6 
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130 PRINT "Negro sobre azul" 
140 REM valores normales de PEN y PAPER 
150 PEN 1 
160 PAPER Y 


Puede ejecutar este programa en los tres modos, cambiando para ello la 
línea 10. Los resultados que se obtienen pueden ser curiosos, ya que las 
tintas son de colores diferentes en los distintos modos. 

He aquí otro ejemplo: 


10 MODE Q 

20 rojoenmodol 
30 negroenmodod=5 

40 PEN rojoenmodod 

50 PAPER nagroenmadol 

60 CLS 

70 LOCATE 8,12 

80 PRINT "Vale!" 

90 REM valores normales de PEN y PAPER 
109 PEN 1 

110 PAPER O 


Las dos últimas líneas se encargan de restablecer las tintas del fondo y la 
pluma a sus valores habituales, para evitar encontrarse al terminar el pro- 
gramacon cosas como texto amarillo sobre fondo blanco, o con cualquier 
otra mezcla que haga ilegible el texto. 

Precisamente, uno de los problemas habituales cuando se trabaja con 
los colores es que, al terminar un programa, podemos encontrarnos con 
que el color de la pluma y del fondo coinciden. Una forma de solucionar 
esto es proceder como en los programas anteriores. Otra alternativa es 
programar una de las teclas de función para que restituya los colores habi- 
tuales; por ejemplo, 


KEY 128,CHR$(13)+"INK 0, 
PAPER 0"+CHR$ (13) 


NK 1,24:PEN 1s 


Ejercicios 


1. Escriba un programa que elija aleatoriamente un punto dela pantalla y 
trace una línea hasta otro punto, elegido también aleatoriamente, y que 
repita el proceso hasta un nuevo punto, y así hasta dibujar 100 líneas. 
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2. Dibuje en la pantalla un cohete utilizando las sentencias MOVE y 
DRAW. Escriba en el cohete el nombre que usted quiera darle. 

3. Escriba bien centrada en la pantalla del modo 0 la frase “colores surti- 
dos”, haciendo que cada letra sea de un color diferente. 


Gráficos y colores 


Es fácil en el Amstrad realizar dibujos a base de líneas de colores. Si se 
utilizan los comandos MOVE y DRAW como hemos hecho hasta ahora, 
se obtienen líneas del color de la tinta 1. Como esta tinta era del color 
24 en todos los modos, hemos obtenido siempre líneas de color amarillo 
intenso. 

Para trazar líneas de otros colores se debe emplear una generalización 
del comando DRAW. Rcinicialicc el ordenador y escribi 


MOVE 100,100 
DRAW 300,300,2 


Obtendrá una línea que une los puntos (100, 100) y (300, 300), dibujada 
con el color de la tinta 2, que es (en modo 1) de color cyan intenso, el nú- 
mero 20. Escriba ahora: 


MOVE 300,300 
DRAM 490,0,3 


y Obtendrá entre (300, 300) y (400, 0) una línea roja, puesto que la tinta 
3 es del color número 6 en modo 1. 

Con la misma facilidad se pueden utilizar estos comandos incluidos en 
los programas. 

Recuerde que ya explicamos que un programa que funciona correcta- 
mente en un modo de pantalla, puede no hacerlo en otro a causa del dife- 
rente significado de las tintas en los distintos modos. El siguiente progra- 
ma dibuja un rectángulo en modo 1, con un lado amarillo, otro eyan y 
los otros dos rojos: 


10 MODE 1 
20 MOVE 100,100 
30 DRAW 400,100 
40 DRAW 490,320,3 
50 DRAW 190,300,2 
60 DRAW 100,100,3 
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En la línea 30 no se especifica el número de la tinta, por lo que el ordena- 
dor utiliza la número 1. Pero, ejecute el programa una segunda vez, Le 
sorprenderá seguramente la desaparición del lado amarillo. 

Cuando el ordenador encuentra un comando DRAW sin múmero de 
tinta, lo que hace es conservar el último que se haya utilizado. Al ejecutar 
por segunda vez el programa, la última tinta utilizada es la número 3, que 
será la que utilice entonces en el DRAW de la línea 30. Esto tiene la ven- 
taja de que no es necesario especificar un nuevo color mientras se desee 
seguir utilizando el mismo. Compruebe este hecho con el programa: 


10 MODE 1 
20 MOVE 200,100 
30 DRAW 400,200,2 
40 DRAW 190,350 
50 DRAW 220,100 


Pruebe también este programa en el modo 2, donde la tinta número 2 es 
de un color diferente. 

El modo 0 es con mucho el mejor para dibujar figuras con gran colori- 
do, siempre que no importe excesivamente la resolución: 


10 
20 
30 color=1 

40 FOR con=2 TO 350 STEP 4 
50 MOVE x+con, y 

60 DRAW x+350,y+con, color 
70 MOVE x,y+con 

80 DRAW x+con,y+350 

90 colorsícolor+i) MOD 16 
100 NEXT 


Cómo cambiar las tintas 


Hasta ahora sólo hemos utilizado unos cuantos de los colores que puede 
producir el Amstrad. Hay 16 tintas utilizables, pero hay 27 colores, como. 
vimos en la figura 1.6. El Amstrad permite cambiar los colores de las tin- 
tas, de manera que podemos así seleccionar en un modo particular la ga- 
ma de colores que interese. 

Lo que no se puede alterar es la cantidad de colores que pueden apare- 
cer simultáneamente en la pantalla, pues es una cantidad fija que depende 
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del modo de pantalla. Son siempre 2 colores en modo2, 4 colores en mo- 
do 1 y 16 colores en mado O. Por ejemplo, se puede lograr que en modo 
2 el texto sea rojo y el fondo blanco, pero solo estos dos colores podrán 
estar en la pantalla en un instante dado, 

Al encenderlo, el ordenador se pone en modo 1, el fondo queda de la 
tinta 0 (PAPER 0), que es de color 1, y el texto de la tinta 1 (PEN 1), que 
es de color 24. Reinicialice el ordenador y escriba 


INK 1,6 


Todo el texto que hay en la pantalla cambiará instantáneamente a color 
rojo intenso. El comando INK (o sea, ““tinta”) ha de ir seguido de dos 
números. El primero es el número de la tinta cuyo color se va a estable- 
cer; el segundo es el número del color que se asigna a la tinta. 

El comando INK 1,6 ha servido para cambiar la tinta 1 al color 6, que 
es rojo intenso. Todo lo que esté escrito o dibujado con la tinta 1 cambia- 
rá automáticamente al nuevo color. Para poner el texto en azul utiliza- 
remos 


INK 1,2 


Lo que estaba en rojo se cambia a azul intenso. ¿Desea volver el texto 
al color usual? Posiblemente sepa ya como hacerlo. Escriba 


INkK 1,24 


Normalmente, la tinta 1 es en todos los modos del color 24. 

Los cambios de color de las tintas sirven también para cambiar el color 
del fondo. En este momento el fondo es de la tinta O (PAPER 0), de color 
azul. 

Para cambiarlo a blanco, escriba 


INK 1,26 


Seguramente le será difícil leer el texto. Pruebe con INK 0,6 o con 
INK 0,0. Normalmente el fondo es azul en todos los modos, del color 1. 
Pruebe a volver el fondo de dicho color. 

No es necesario haber utilizado previamente una tinta para cambiarle 
el color. Inicialice el ordenador y escriba 


INIC 3,0 
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No parece que haya pasado nada, Si ahora elegimos PEN 3 en el modo 
1, la tabla de la figura 1.8 parece sugerir que obtendremos textos de color 
rojo intenso. 

Pero lo que hemos hecho ha sido cambiar la tinta 3 del color habitual 
al color 0, que es negro. Si escribe 


PEN S 
verá que el nuevo texto aparecerá en negro. Escriba ahora 
INK 3,6 


y todo el texto escrito con PEN 3 pasará a rojo intenso. Este color perma- 
nece incluso si se cambia de modo; compruébelo. 

Es posible también crear tintas que sean intermitentes entre dos colores. 
Escriba 


INK 1,3, 26 


y todo el texto que se haya escrito con PEN 1 comenzará a alternar entre 
los colores 3, que es rojo, y 26, que es blanco. 

La adecuada utilización de tintas intermitentes puede servir para dar la 
impresión de movimiento. Si se hace que la tinta 1 sea intermitente ama- 
rillo/rojo yla tinta 2 lo sea rojo/amarillo, y se escriben caracteres alternos 
de las dos tintas, se produce la ilusión de un desplazamiento de los colores 
a lo largo de la línea: 


10 MODE 1 
20 INKk 1,3,12 

32 INK 2,12,3 

40 tintapluma=1 

50 FOR x=1 TO 40 

60 IF tintapluma=1 THEN tintapluma=2 ELSE tintap 
luma=1 

70 PEN tintapluma 

B0 LOCATE x,13 

90 PRINT CHR$(143)5 

100 NEXT 


La indudable ventaja del comando INK es que permite seleccionar cual- 
quier combinación de los 27 colores. Incluso en el modo 2, que sólo 
admite dos tintas, se pueden conseguir buenos efectos usando combin: 
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ciones tales como texto rojo sobre fondo blanco; es decir, no estamos li- 
mitados a la combinación de amarillo y azul que se obtiene al encender 
el ordenador. El siguiente programa muestra las más de 700 combinacio- 
nes de colores posibles en el modo 2: 


10 MODE 2 
20 FOR x=0 TO 26 
30 CLS 

48 INK D,x 
50 FOR y=0 TO 26 

60 IF x<>y THEN INK 1,ysPRINT "Color " 


70 respuestas= 
80 WHILE respuestas="" 
90 respuestas=INKEYS 
100 WEND 

110 NEXT 

120 NEXT 


Ejercicios 


1. Escriba su nombre en la pantalla con caracteres intermitentes. Escoja 
para uno de los colores el mismo del fondo, de manera que el nombre 
aparezca y desaparezca. 

2. Dibuje una llama con líneas de colores apropiados. (Podrá conseguir 
un dibujo muy efectivo utilizando colores intermitentes.) 

3. Dibuje un cangrejo rojo reposando en un playa de arenas amarillas. 
Elija las tintas y los colores de manera que los colores del dibujo no 
cambien al cambiar el modo de pantalla. 
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Caracteres y códigos 


EL JUEGO DE CARACTERES DEL AMSTRAD 


El Amstrad dispone de una considerable variedad de caracteres predefini- 
dos. Además de los caracteres alfabéticos y numéricos, tiene símbolos 
para representar notas musicales, hombrecillos, etc., como se puede com- 
probar ejecutando el siguiente programa: 


10 MODE 1 
20 FOR codigo=32 TO 255 
30 PRINT CHRS(codigo); 
40 NEXT 


El Amstrad asocia cada uno deestos caracteres con un número de código, 
llamado “código ASCII” del carácter. Los códigos van del O al 255. Los 
códigos del O al 31 tienen significados especiales para el ordenador, tales 
como “hacer retroceder un espacio el cursor” o “cambiar el color”. Los có- 
digos del 32 al 255 corresponden a las letras mayúsculas y minúsculas, los 
números, los signos de puntuación, etc. La línea 30 de programa hace 
que el ordenador escriba el carácter que corresponde a un determinado 
código ASCII. La figura 2.1 muestra la distribución de los códigos AS- 
CI más usuales. 


Caracteres — | Códigos ASCII 


Códigos especiales 0-31 
Espacio n 
09 48-57 
| AZ 65-90 
| az 9 | 


Figura 2.1. Algunos de los códigos ASCII más usuales, 
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Los caracteres con código entre 0 y 31 pueden ser exhibidos en la panta- 
la precediéndolos del carácter cuyo código ASCII es 1: 


10 MODE 1 
20 FOR codigo=0 TO 31 

30 PRINT CHR$(1)CHR$(codigo) + 
40 NEXT 


Esto proporciona una notable posibilidad de elección de caracteres para 
un programa. Sin embargo, hay situaciones en las que se necesita algún 
carácter que no está incluido en el juego de caracteres predefinidos del 
Amstrad; así ocurre con las letras de ciertos idiomas, con los símbolos 
matemáticos y también en.los programas de juegos. Enestos casos pode- 
mos recurrir a la posibilidad que ofrece el Amstrad de crear nuestros pro- 
pios caracteres definidos por el usuario. Antes de hablar de esto, vamos 
a echar un vistazo a la forma en que el Amstrad almacena los caracteres 
y a ver por qué este método de almacenamiento limita los caracteres pre- 
definidos a sólo 256, con códigos ASCII del O al 255. 


Sistema binario; bits y bytes 


¿Cómo almacena el Amstrad la información? Para entenderlo de manera 
sencilla, lo mejor es imaginarse el ordenador relleno de millares de inte- 
rruptores, cada uno de los cuales puede estar en las posiciones de “encen- 
dido' y “apagado'. En el Amstrad, estos “interruptores” están siempre 
agrupados en bloques de ocho. Representando la posición de “apagado” 
por un O y la de “encendido” por un 1, podemos representar las posibles 
combinaciones de ocho interruptores como se indica en la figura 2.2. 
Quizá no le sorprenda ya saber que los ocho interruptores pueden en- 
contrarse en 256 situaciones posibles. Cada uno de los números es un mú- 


11 
11 
11 


dra 
111 
111 


1 
o 
1 


Figura 2.2. Las 256 combinaciones posibles de 8 “interruptores”. 
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mero binario, compuesto únicamente de las cifras O y 1. Las cifras 0 y 
1 son las cifras o dígitos binarios; cada una de estas cifras es un bit. Una 
combinación de 8 bits es un byte. 

El sistema binario es una forma de contar agrupando en grupos de dos, 
de la misma manera que nosotros contamos habitulamente haciendo gru- 
pos de diez. Cada número binario es equivalente a un número en nuestro 
sistema de numeración. Es relativamente sencillo convertir un número 
binario en la forma más familiar de número decimal, como veremos 
enseguida. 

El byte es la unidad fundamental de almacenamiento de información 
en el Amstrad. Muchas de las limitaciones del ordenador provienen jus- 
tamente del hecho de que sólo existen 256 bytes diferentes. Si hay sólo 
256 caracteres predefinidos es porque cada carácter debe tener asociado 
un código ASCII que se almacene en un byte. Una línca de programa 
puede tener una longitud de entre O y 255 caracteres, ya que su número 
de caracteres se almacena en un byte. Si existiesen 257 caracteres predefi- 
nidos, o si una línea pudiese tener más de 255 caracteres, estas informa- 
ciones deberían almacenarse en dos bytes, lo que requeriría considerable 
cantidad de memoria suplementaria, 

Cada carácter predefinido tiene un código ASCIL, pero este código no 
es suficiente para que el ordenador sepa cómo debe representar el carácter 
en la pantalla. Cada carácter está construido en una cuadrícula de 8x8, 
como vemos en el ejemplo de la letra “A” mayúscula. 


Figura 2.3, La letra “A” mayúscula, 


Cada elemento de la cuadrícula puede estar encendido o apagado (en 
la pantalla) y aquí entra de nuevo el sistema binario, ¿verdad? Por otra 
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parte, la cuadrícula 8x8 es una consecuencia de los 8 bits de un byte. Ca- 
da fila de la cuadrícula puede ser almacenada en un byte, y la descripción 
completa del carácter ocupa 8 bytes. 


00011000 
00111100 
01100110 
01100110 
01111110 
01100110 
01100110 
00000000 


Figura 2.4, Definición binaria, con 8 bytes, del carácter “A”. 


Los números binarios son incómodos para trabajar con ellos porque son 
largos y es fácil añadir y omitir por error algún O o algún 1. Es fácil con- 
vertir en número decimal el valor binario de un byte; basta con sumar los 
números que aparecen sobre las posiciones del byte en las que hay un 1. 


s 
o 
Sa 


1649 
24164844 
0R3Z 4442 


? 
R 
A 
E 


Figura 2.5. Definición, con números decimales, del carácter “A”. 


El Amstrad puede facilitar aún más este proceso realizando el trabajo 
más tedioso. El comando PRINT STR$ (número) convierte el número 
que incluyamos como parámetro en una cadena literal que es equivalente 
en forma decimal. Podemos comprobar que nuestros cálculos eran co- 
rrectos mediante el programa siguiente. Hay que poner los símbolos 
““8:X antes de un número binario; de no hacerlo así, el Amstrad lo toma- 
ría como un número decimal formado por sólo ceros y unos. 


10 MODE 4 
20 numero=1 
30 WHILE numerosa 
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40 INPUT "Tecles el nunero binario, precedido po 
r 2X "¡numero 

50 PRINT "Este es el numero decinal "STRé(numero 
) 

60 WEND 


A veces también es necesario convertir números decimales en binarios. 
También de eso se puede encargar el Amstrad: 


10 
20 
30 WHILE nunero>B 

40 INPUT "Teclee el numero decimal "¿numero 

50 PRINT "Este es el numero binario "BINS (numero 


60 WEND 


Respecto de estos comandos que convierten números, hay que advertir 
que proporcionan una cadena literal como resultado. No se pueden hacer 
operaciones aritméticas con cadenas; para realizarlas hay que convertir 
previamente la cadena literal en un número: 


10 MODE 1 
28 numero=1 

30 WHILE numero>a 

40 INPUT "Teclee el nunero decimal 
50 PRINT "Este es el numero binario 
) 

54 REM VAL convierte una cadena literal en un nu 
55 numerico=VAL (BIN$ (numero) ) 

Sé PRINT "Este es el numero "¿nunerico 

60 WEND 


numero 
“BINS (numero 


Cómo definir sus propios caracteres 


Cualquiera de los 16 caracteres cuyo código ASCII está entre 240 y 255 
se puede redefinir para que tenga otra forma diferente. Para ver cómo 
hacerlo, vamos a cambiar el carácter 240 para que sea la letra ““A””, apro- 
vechando el hecho de que ya conocemos los valores de los 8 bytes que se 
utilizan en la descripción de esta letra; 
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10 MODE 1 
20 REM SYMBOL define el caracter 

30 SYMBOL 240,24,60,102,102,125,102,102,0 
20 PRINT CHR$ (240) 


La instrucción SYMBOL de la línea 30 es la que se encarga de informar 
al Amstrad de nuestra nueva definición del carácter. El primer número, 
240, es el del código ASCII del carácter; los ocho números que siguen de- 
finen, fila por fila, la cuadrícula del carácter. 

Para redefinir otros códigos ASCII además de los 16 citados, hay que 
emplear la instrucción SYMBOL AFTER, como en el programa siguiente: 


10 MODE 1 
20 SYMBOL AFTER 65 

30 SYMBOL 65,231,195,153,153,129,183,153,255 
40 PRINT CHR$ (65) 


La línea 20 indica al ordenador que vamos a redefinir caracteres ASCII 
con código igual o superior a 65. La 30 redefine el código 65, que inicial- 
mente representa la letra “A”, para que dé una imagen en negativo de 
la letra. El carácter que había antes de la definición ha desaparecido. Pa- 
ra recuperarlo se puede reinicializar el ordenador, o también se puede em- 
plear la instrucción SYMBOL AFTER, que devuelve a todos los caracte- 
res posteriores al especificado su aspecto inicial: 


10 HODE 1 
20 SYMBOL AFTER 65 

30 SYMBOL 65,231,195,153,153, 129,153, 153,255 
40 PRINT CHR$(65) 

SO SYMBOL AFTER 70 


Sistema hexadecimal 


Ya hemos visto que podemos utilizar el ordenador para facilitarnos la 
conversión entre números binarios y decimales. Aunque para nosotros el 
sistema familiar sea el decimal, cuando se trabaja con ordenadores es 
usual utilizar el sistema hexadecimal, que es el sistema de base 16. 

Los números hexadecimales se escriben habitualmente precedidos del 
símbolo '8' para que no se confundan con los decimales. Es conveniente 
acostumbrarse a trabajar con este sistema de numeración. Su ventaja 
principal estriba en que los valores que puede tomar un byte corresponden 
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NÚMERO DECIMAL. EQUIVALENTE HEXADECIMAL. 


0 o 
1 1 
10 A 
" a 
2 E 
% 1] 
1 E 
15 E 
16 10 
” " 
30 e 
100 ss 
2% Se 


Figura 2.6. Algunos números decimales y sus 
equivalentes hexadecimales. 


exactamente a los números hexadecimales de 2 cifras. Por ejemplo, la 
descripción de la letra “A” es más sencilla cuando la hacemos con números 
hexadecimales, como vemos en el programa siguiente: 


19 HODE 1 
20 SYMBOL 240,81B,230,264,266,27E,L66, 166,0 
30 PRINT CHR$(240) 


Puesto que el ordenador trabaja con bytes, los números hexadecimales 
resultan más convenientes en la mayor parte de los casos. Así, bastan- 
tes de los números que nos aparecen repetidamente, y cuya significación 
no queda clara al escribirlos en decimal, revelan su importancia al escri- 
birlos en hexadecimal. Por ejemplo, el máximo valor posible de los nú- 
meros de línea en los programas, 65535, parece arbitrario escrito en de- 
cimal. Su versión hexadecimal, SFFFF, aclara la razón de este número 
límite; 65535 es el mayor número que se puede escribir con dos bytes. Con 
números de línea almacenados en dos bytes se puede efectivamente lle- 
gar hasta 256 256=65535. El empleo de números más grandes reque- 
riría que se les dedicasen al menos tres bytes. En cambio, si los núme- 
ros de línea se almacenasen en un byte, su valor sólo podría estar entre 
0 y 255. 

El Amstrad convierte sin dificultad números decimales en hexadecima- 
les: 
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10 MODE 1 
20 numero=1 

30 WHILE numero>a 

40 INPUT "Teclee el numero decimal "¿numero 
50 PRINT "En hexadecimal vale "HEXS(numero) 
60 WEND 


También hace la conversión inversa; en este caso, el número que se intro- 
duce es hexadecimal, y debe ir precedido de “8”: 


10 MODE £ 
20 numero=1 

30 WHILE numero>0 

40 INPUT "Teclee el numero hexadecimal, precedid 
o por % "¿numero 

50 PRINT "Este es el numero decimal "STR$(numero 
) 

60 WEND 


JUEGOS Y CARACTERES DEFINIDOS 


Los caracteres definidos por el usuario se emplean con gran frecuencia en 
los programas de juegos. El programa que sigue define un carácter con 
forma de perro y lo escribe en varios lugares de la pantalla elegidos aleato- 
riamente: 


10 MODE Q > 
20 SYMBOL 240,D,4,7,132,124, 130,130, 0 
30 FOR perroaleatorio=1 TO 30 

40 xaleat=INT(19%4RND(1)+1) 

50 yaleat=INT(24*RND(1)+1) 

60 tintapluma=INT(1DNRND(1) +1) 

70 PEN tintapluma 

80 LOCATE xaleat,yaleat 

90 PRINT CHR$(240) 

108 NEXT 


Para hacer que la figura se mueva por la pantalla, vamos a escribir un es- 
pacio en blanco en la posición que ocupa el perro (para borrarlo) y a esc 
bir el perro en una nueva posición. El movimiento se dirige mediante las 
teclas “a” ? y *2 y el programa se termina cuando se pulsa “e”. 
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10 MODE 0 
20 SYMBOL 240,0,4,7,132,124,130,130,0 
30 perros=CHA6 (240) 

40 PEN 1 

50 xperro=13:yperro=10 

60 respuestas="" 

70 WHILE respuestas<"e" 

80 ynuevo=yperro:xnuevo=xperro 

90 respuestat=INKEYS 

100 1F respuentas= 

perro-1 

110 1F respuestas= 
yperro+1 

120 1F respuestab="," AND xperro)l THEN xnuevo=x 
perro-1 

130 1F respuestas= 
xperro+1 

148 1F xperrocoxnuevo OR yperro<>ynuevo THEN LOC 
ATE «perro, yperro:PRINT " "sexperro=xnuevoryperr 
o=ynuevo 

150 LOCATE xperro,yperro 

160 PRINT perros 

170 WEND 


" AND yperro>1 THEN ynueve=y 


yperro<25 THEN ynuevos 


xperro<20 THEN xnuevo= 


El movimiento resulta más creíble cuando se utilizan caracteres distin- 
tos para las diferentes direcciones del movimiento. Para demostrarlo po- 
dríamos modificar el programa anterior, pero lo que haremos será utilizar 
como caracteres los que ya están definidos para los códigos ASCII 240 a 
243. Se trata de flechas que apuntan en las cuatro direcciones: 


10 MODE 2 
30 flecha$=CHR$ (240) 

20 PEN 4 

SO xflecha=13: yflecha=10 
$0 respuesta$="" 
70-UHILE respuestas<> 
80 ynuevo=yflecharxnuevo=xflecha 

90 respuestas=INKEYS 

100 1F respuestat="a" AND yflachadi THEN ynuevo= 
yflecha-1:flechat=CHR$ (240) 

110 IF respuesta$="z" AND yflechac25 THEN ynuevo 
=yflecha+r1:flechas=CHR$(241) 

120 IF respuesta$="," AND xflecha>l THEN xnuevo= 
xflecha-1:flechas=CHR$ (242) 
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130 1F respuesta$="." AND xflecha<20 THEN xnuevo 
sxflechat11flechas=CHR$ (243) 

140 1F xflechac>xnuevo OR yflechas>ynuevo THEN L 
OCATE xflecha,yflecha:PRINT " "s:xflecha=sxnuevos 
yflecha=ynuevo 

150 LOCATE xflecha,yflecha 

160 PRINT flechas 

170 WEND 


La idea de este programa puede servir de base para muchos juegos. 

Uno de los problemas que se presentan al definir caracteres es que, 
cuando se dibuja en papel un esquema del carácter, el posterior resultado 
en pantalla resulta con frecuencia bastante diferente de lo esperado. El 
diseñador de caracteres que figura en la cinta de presentación del Amstrad 
¡ene el grave inconveniente de no dar la definición numérica del carácter 
que se dibuja; esta definición es necesaria para la sentencia SYMBOL, 

El programa que sigue le permitirá crear sus propios caracteres, le pro- 
porcionará la definición numérica del carácter creado y le dará la oportu- 
nidad de grabar esta definición en un fichero. Así podrá construir su pro- 
pia biblioteca de caracteres definidos, para utilizarla en la elaboración de 
programas. 


10 MODE 1 
20 DEFINT com,x, y 

29 REM matrices para almacenar la definicion del 
caracter 

30 DIM codigo(S,8),simbolo(8) 

40 INK 3,20,6 

SO nombres="222772" 

68 numero=248 . 

69 REM — 
70 GOSUB 1009 

80 SOSUB 3090:GOSUB 4000 

89 REM esperar la respuesta del teclado 
90 respuestas="" 

100 WHILE rospuestasce 

118 xnuevo=x:ynuevo= 
120 respuesta$=LOWERS (INKEYS) 
129 REM las cuatro líneas siguientes controlan e 
1 movimiento del cursor arriba/abajo/izquierda/d 


erecha 
130 IF respuestat="3" AND y>ycomienzo THEN ynuev 
osy-1 

140 1F respuesta$="2" AND y<ycomienzo+7 THEN ynu 
evosy+1 


150 1F respuesta: 
5 


"," AND >xcomienzo THEN xnuev 
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160 1F respuent: 
evo=etl 

169 REM se rectifica la posicióon si ha cambiado 
170 1F xnmuevo<)x OR ynuevoc>y THEN GOSUB 2000 
179 REM sí se aprieta la barra de espacio cambia 
el color del punto 

180 IF respuesta$=" " THEN GOSUB 7000:GOSUB 3000 
189 REM sí se pulsa 'o” se graba la definicion d 
el simbolo en un fichero 

190 1F respuesta$="0" THEN GOSUB 5000: G0SUB 1000 
¿GOSUB 3000: GOSUB 4000 

199 REM ei se pulsa 'i” se carga la definicion d 
el simbolo desde la cinta 

200 1% respuestas="1" THEN GOSUB 6000: G0SUB 3000 
:¿GOSUE 4002 

210 PEN 14 

220 LOCATE x,y 

2350 PRINT CHR4 (203); 

240 WEND 

250 END 

399 REM definicion del simbolo vacio 

1000 CLS 

1010 SYMBOL numero, 2,2, 0,2,0,0,0,0 

1020 PEN 1 


¿Y AND x<xcomienzo+7 THEN nu 


1040 FOR con 
1050 codigo(con,coni)=1 

1060 NEXT 

1070 NEXT 

1079 REM impresiom de S8*8 cuadrados vacios para 
representar el caracter "espacio en blanco” 
1080 xcomienzo=2: ycomienzo=2 

1098 FOR x=xcomenzo TO xcomienzo+7 

1100 FOR y=ycomienzo TO ycomienzo*7 

1110 LOCATE x»y 

1120 PRINT CHR$(233)5 

1130 NEXT 

1140 NEXT 

1150 x=xcomienzo: 
1160 RETURN 

1999 REM impresion del caracter con su color cor 
recto 

2000 LOCATE x,y 

2010 xcodigo=sx-xcomienzo+1:ycodigos: 
2020 PEN codigo (xcodigo,ycodigo) 
2030 PRINT CHR$(233)5 

2049 «=xnuevo: y=ynuevo 


ycomi enzo 


-ycomienzo+l 
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2050 RETURN 
2999 REM conversion de la matriz codigo en los o 
cho nuneros decimales que definen el caracter 
3000 FOR con=1 TO 8 

3010 simbolos="%x" 

3020 FOR coni=1 TO 8 

3030 simbolot=simbolos+MIDS(STRE (codigo(cont,con 
21))2,1 

3040 NEXT 

3050 simbolo(con)=VAL (simbolos) 

3060 NEXT 

3070 SYMBOL numero, simbolo(1),simbolo(2), simbolo 
(3) ¿simbolo (4), simbolo(3),simbolo(6), simbolo (7), 
simbolo(8) 

3080 PEN 1 

3090 LOCATE l,ycomienzo+10 

3100 PRINT "Simbolos "¿CHAS (numero) ; 

3110 LOCATE 1,ycomienzo+12 

3120 PRINT "SYMBOL "snunero;simbolo(1);simbolo(2 
);simbolo(3) ¡simbolo (4);simbolo(5);simbolo(6);si 
mbolo (7) ;simbolo(8)3 

3130 RETURN 

4000 PEN 1 

4010 LOCATE 1,ycomienzo+15 

4020 PRINT "Nombre del simbolo: "nombres 

4030 LOCATE 1,ycomienzo+17 

4040 PRINT "Simbolo numero: "¿numero 

4050 RETURN : 

4999 REM grabar la definicion en un fichero 
5000 LOCATE 1,21 

5010 PEN 1 

5020 INPUT "Nombre del simboll 
5038 OPENDUT nombres 

5040 WRITE 49,nombres,numero,simbolo(1),simbo 
lo(2),simbolo(3),simbolo(4),simbolo(3), simbolo (6 
) simbolo (7), simbolo (8) 

5050 CLOSEOUT 

5059 REM nombre y numero de simbolo para la sigu 
iente definicion 

5060 nombres="229772" 

5078 nunero=numero+1 

5080 RETURN 


¡nombres 
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5999 REM lectura del fichero con la definicion d 
el caracter 

$000 LOCATE 1,21 

6010 PEN 1 

£029 INPUT "Nombre del simbolo"¿nombres 

$030 OPENIN nombres 

6040 INFUT 49,nombres,numero,simbolo(1),simbolo( 
2),simbolo (3) ,simbolo(4),simbolo(5),simbolo(5),s 
imbolo(7),simbolo(8) 

4050 CLOSEIN 

6060 CLS 

6069 REM conversion a binario de la matriz simbo 
lo para obtener la matriz codigo 

$078 FOR con=1 10 8 

6080 simboloS=BINS (simbolo (con)? 

6092 longitud=LEN (simbolos) 

6100 simbolo$=STRING$(8-1ongitud, "0")+simbolos 
6110 FOR coni=1 10 8 

612% LOCATE «comienzo+coni-1,ycomienzorcon=1 
6138 codigo=VAL (MIDS(simbolo$,con1,1))+1 

6148 PEN codigo 

6150 PRINT CHR$(233) 5 

6168 codigo(coni,con)=codigo 

6170 NEXT 

6180 NEXT 

6190 RETURN 

6999 REM si se aprieta la barra de espacio cambi 
a el color en la posicion del cursor 

7008 xcodigo=x-xcomienzo+1:ycodigo=y-ycomienzo+1 
7018 1F codigo(xcodigo, ycodigo)=1 THEN codigo(xc 
odigo, ycodigo)=2 ELSE codigo (xcodigo, ycodiga)=1 
7020 RETURN 


Ejercicios 


1. Diseñe un carácter con forma de araña y defina la tecla de *.* para que 
proporcione arañas al pulsarla. 

2. Escriba un programa que mueva su araña por la pantalla. A base de 
líneas podrá además dibujar una telaraña. 

3. Mejore ahora su programa diseñando arañas que miren en las cuatro 
direcciones y dibujando la que convenga para que la araña vaya miran- 
do en la dirección del movimiento. 
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En el modo 1, el tamaño de un carácter no da mucho de sí pra crear una 
figura detallada; puede ser conveniente construir una figura mayor yuxta- 
poniendo varios caracteres. Cuando la figura es horizontal, se pueden 
juntar varios caracteres en una cadena literal: 


10 MODE 1 
19 REM los tres caracteres que forman el camion 
20 SYMEOL 24B,0,0,96,96,96,127,18,12 

30 SYMBOL 241,0,0,0,0,0,255,0,0 

40 SYMBOL 242,248,132,132,255,255,255,72, 48 

50 Camion$=CHRS (240) +CHR$ (241) +CHR$ (242) 

60 LOCATE 18,13 

70 PRINT camion$ 


Es fácil mover el camión con ayuda del teclado, aunque para que resulte 
convincente sólo lo moveremos hacia la derecha; para ello hay que pulsar 


10 MODE 1 
20 REM los tres caracteres que forman el camion 
30 SYMBOL 240,0,0,76,96,96,127,18,12 

40 SYMBOL 241,0,0,0,0,0,255,0,8 

50 SYMBOL 242,248,132,132,255,255,255,72, 48 

60 camion$=CHR$ (240) +CHR$ (241) +CHR$ (242) 

70 antiy=i3 d 

BO LOCATE x, y 

90 PRINT camions 

108 respuesta 
109 REM —- 
110 WHILE respuestascone” 

129 xnuevo=x 

132 respuesta$=LOWERS (INKEYS) 

142 1F respuesta$="." THEN xnuevo="+1 

149 REM si el camion se ha movido se borra con u 
n espacio el antíguo caracter de la izquierda 
150 IF xnuevo<>x THEN LOCATE x,y1PRINT " "¿camio 
”* 

168 x=xnuevo 

170 WEND 
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Observe lo que ocurre cuando la figura llega al final de la línea: salta 
automáticamente al comienzo de la nueva línea. Esto se debe a que el 
Amstrad nunca escribe un carácter en una posición que le lleve fuera de 
la pantalla. Cuando se le presenta esta situación, el ordenador toma la 
decisión de mover el cursor de texto a una posición conveniente, de acuer- 
do con las siguientes reglas: 


1) Si el cursor se va a salir de la pantalla por la derecha, se lo traslada 
al comienzo de la línea siguiente. 

2) Si el cursor se va a salir de la pantalla por la izquierda, se lo traslada 
a la última posición de la línea anterior. 

3) Si el cursor se va a salir por la parte superior de la pantalla, el conte- 
nido de ésta se desplaza una línea hacia abajo y el cursor permanece 
en la primera línea de la pantalla. 

4) Si el cursor se va a salir por la parte inferior de la pantalla, el conte- 
nido de ésta se desplaza una línea hacia arriba, y el cursor permane- 
ce en la última línea de la pantalla. 


Aunque sólo el carácter delantero del camión se sitúe en una posición 
ilegal, el ordenador considera toda la cadena literal como situada ¡legal- 
mente. Esto ocurre cuando el camión comienza en la posición 39 de la 
línea; el ordenador lleva entonces toda la cadena al comienzo de la línea 
siguiente. Es importante recordar esto, ya que significa que el tamaño de 
un carácter múltiple influye decisivamente en el número de posiciones en 
las que podrá ser dibujado. Enel caso que nos ocupa, el mayor valor que 
puede tomar la coordenada x de texto es 38. 


Código ASCH Acción 
8 Mover el cursor una posición hacia atrás 
9 Mover el cursor una posición hacia delante 
10 Mover el cursor una línea hacia abajo 
u Mover el cursor una línea hacia arriba 


Figura 2.7. Los cuatro códigos ASCII de movimiento del cursor. 


Parece bastante más difícil mover una figura compuesta cuando tiene 
forma vertical, puesto que en principio habría que emplear una instruc- 
ción LOCATE para situar cada uno de los caracteres que la componen, 
Sin embargo, viene en nuestra ayuda el hecho de que existen cuatro códi- 
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gos ASCII (de valores inferiores a 32) que sirven para mover el cursor en 
las cuatro direcciones. Son los que se explican en la figura 2.7. Incluyen- 
do estos códigos como caracteres, es posible describir una figura vertical 
en forma de cadena literal; es lo que hacemos en la figura 2.8. El ordena- 
dor no dibujará en la pantalla estos caracteres de movimiento del cursor, 
sino que realizará con el cursor de texto el movimiento que corresponda. 


mods 


El cohete se pued representar mediante una cadene literal compuesta por: 
arré +CHRSI8)+-... +CHRS(8)+CHROCIO) 
mueve el cursor hacia atrás y hacia 


“bajo para escribi los siguientes 
caracteres. 


+mods-+CHRSI8)+-....+CHRS(8I+CHRSI10) 


lo mismo otra vez 
+0bp 


Figura 2.8. Carácter múltiple vertical creado con movimientos del cursor. 
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*Para colocar el cohete en la posición deseada de pantalla, basta con una 
sola instrucción LOCATE: 


10 MODE 1 
19 REM los tres caracteres que forman el cohete 
20 SYMBOL 240,0,24,24,24,24,36,36,36 

30 SYMBOL 241,36,36,36,36, 36,36, 36,36 

40 SYMBOL 242,66,129,129,129,129,153, 195,129 

50 cohetes=CHR$ (240) +CHRS (8) +CHR$ (10) +CHR$ (241)+ 
CHR$(8) +CHRS (10) +CHR$ (242) 

60 x=20: y=20 

70 LOCATE x, y 

80 PRINT cohetes 

90 respuesta$="" 

100 REM leer del teclado en tanto no se pulse *e 
110 WHILE respuestas<>"e" AND y>1 

120 ynuevo=y 

130 respuestas=LOWER$ ( INKEYS) 

140 1F respuestat THEN ynuevo=y-1 

150 REM si se ha movido el cohete se borra con u 
n blanco el antiguo caracter inferior 

160 1F ynuevo<dy THEN LOCATE x,y+2:PRINT " "sLOC 
ATE x,ynuevo:PRINT cohetes 

170 y=ynuevo 

180 VEND 


Lamentablemente, cuando el Amstrad echa sus cuentas sobre la longi- 
tud de una cadena y lo quele resta de línea, no tiene en cuenta los posibles 
caracteres de control del cursor que pueda haber en la cadena. En el caso 
anterior, el ordenador considerará que debe escribir una cadena con 7 ca- 
racteres y, en consecuencia, no podrá hacerlo en una posición cuya coor- 
denada X de texto sea superior a 34. Puede comprobar lo que decimos 
con sólo cambiar la línea 60: 


sn 


55: y=20 


Así pues, podemos usar los caracteres de control del cursor para crear fi- 
guras múltiples, pero teniendo siempre en cuenta lo que acabamos de de- 
cir. En muchas ocasiones será preferible utilizar varias sentencias LOCA- 
TE para evitarse estos problemas. El siguiente programa muestra conjun- 
tamente las dos posibilidades: 
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10 MODE 1 

19 REM los tres caracteres que definen el coheti 
20 SYMBOL 240,0,24,24,24,24,36,36,36 

30 SYMBOL 241,36,36,36,36,36,36,36,36 

40 SYMBOL 242,66,129,129,129,129,153, 195,129 

49 REM definicion del cohete usando movimientos 
del cursor 

50 cohetes=CHRS (240) +CHR$ (8) +CHRE (10)+CHRS (241)+ 
CHR (8) +CHR (10) +CHRG (242) 

59 REM con este procedimiento la coordenada x no 
debe pasar de 34 

17) 20 

70 LOCATE 3,23 

80 PRINT "Definido con novimientos del cursor* 
90 FOR ycoord=y TO 1 STEP -1 

109 LOCATE x,ycoord+3 

110 PRINT 
120 LOCATE x,ycoord 

130 PRINT cohetes 

140 NEXT 

149 REM hay que pulsar una tecla para continuar 
la demostracion 

150 respuesta 
140 WHILE respuestas="" 

170 respuestaé=LONERS (INKEYS) 

180 WEND 

198 CLS 

197 REM con este procedimiento la coordenada x p 
uede tonar cualquier valor 

200 x=36: y=28 

210 LOCATE 7,23 

220 PRINT "Definido usando LOCATE para cada part 


229 REM cada parte del cohete se coloca mediante 
su propia instruccion LOCATE 

230 FOR ycoord=y TO 1 STEP -1 

240 LOCATE x,ycoord 

250 PRINT CHRS (240) 

260 LOCATE x,ycoord+1 

270 PRINT CHR$(241) 

280 LOCATE xpycoord+2 

290 PRINT CHR4(242) 
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299 REM se borra la base del cohete de la posici 
on anterior 

300 LOCATE x,ycoord+3 

310 PRINT " 
320 NEXT 


Se pueden obtener efectos más interesantes definiendo dos figuras ligera- 
mente diferentes y dibujando alternativamente una u otra. Utilizando es- 
ta idea, producimos el efecto de una culebra que serpentea sobre la 
pantalla: 


10 NODE 4 
19 REM definicion de los dos caracteres con form 
a de culebra 

20 SYMBOL 240,0,0,32,80,81,74,130 

30 SYMBOL 241,0,0,0,132,74,81,80,32 

40 culebraté=CHRs (240) 

50 culebra28=CHRS (241) 

60 culebras=culebrals 

70 y=13 

80 FOR x=1 TO 39 

89 REM alternancia entre los dos caracteres cule 
bra 

90 1F culebra$=culebralé THEN culebra! 
ELSE culebrat=culebral$ 

199 LOCATE x,y 

109 REM el espacio borra la culebra anterior 

110 PRINT O" "sculebras 

119 REM un tiempo de espera para que el movimien 
to no sea excesivamente rapido 

120 tiempo=TIME 

130 WHILE TIMEStiempo+10 

140 WEND 

150 NEXT 


ulebrazs 


De la misma manera podríamos definir dos figuras de camión para dar 
la impresión del traqueteo que produce su movimiento, 'O podemos hacer 
que el perro que ya habíamos dibujado menee ahora la cola al pasearse: 


10 MODE 1 
19 REM definicion de los dos caracteres con form 
a de perro 
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20 SYMBOL 240,0,132,135,132,124,130, 130,0 

20 SYMBOL 241,0,36,71,132,124,130,65,0 

20 perrol8=CHR$ (240) 

50 perro2t=CHR$ (241) 

60 perros=perrols 

70 y=13 

80 FOR x=1 TO 39 

89 REM alternancia entre los dos caracteres perr 


90 1F perrot=perrols THEN perrot=perro26 ELSE pe 
rrot=perro1$ 

100 LOCATE xy 

109 REM el espacio borra el perro anterior 

110 PRINT " "sperro$ 

119 REM un tiempo de espera para que el movimien 
to no sea excesivamente rapido 

120 tiempo=TIME 

130 WHILE TIME<tienpo+30 

140 WEND 

150 NEXT 


Ejercicios 


1. Dibuje su propia versión de un autobús con varios caracteres y con- 
dúzcalo a lo largo de la pantalla. 

2. Diseñe dos caracteres circulares con un diámetro situado en dos ángu- 
los diferentes y dibújelos alternativamente para obtener la impresión 
de una rueda. 

3. Añada a su autobús unas ruedas que giren al desplazarlo. 


Cómo mejorar la resolución 


A pesar de que se pueden lograr muchas cosas. utilizando únicamente la 
pantalla de texto, hay ciertas limitaciones que resultan obvias. La mejor 
resolución posible es la del modo 2, pero está limitada a 25 líneas de 80 
caracteres. En cambio, la peor de las resoluciones gráficas es de 160 por 
200 puntos. 

Afortunadamente, el Amstrad permite dibujar los caracteres en cual- 
quiera de las posiciones de la pantalla gráfica; esto permite realizar dibu- 
jos que se muevan con suavidad. También hace posible, en trabajos más 
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profesionales, colocar rótulos en las gráficas en la posición más conve- 
niente, en lugar de tener que hacerlo en la posición de texto más cercana. 

El cambio de texto a coordenadas gráficas trae consigo algunos cam- 
bios. Cuando se ha ejecutado el comando TAG (de “Text At Graphic 
texto en posiciones gráficas), los caracteres no se colocan en su sitio 
mediante la sentencia LOCATE, sino mediante MOVE, que sirve para 
situar el cursor gráfico. El punto que ocupa el cursor gráfico será el pun- 
10 superior izquierdo del carácter. Veamos cómo podemos mover de esta 
forma un carácter que representa uno de los clásicos “invasores del es- 
pacio”: 


10 MODE 1 
19 REM definicion del invasor extraterrestre 

20 SYMBOL 240,24,60,126,219,255,255, 165,165 

30 invasor$=CHR$ (240) 

40 xgrafico=100: ygrafico=200 

49 REM asociar el texto al cursor grafico 

50 TAS 

60 FOR x=xgrafico TO 600 

70 MOVE x,ygrafico 

78 REM fl espacio en blanco es para borrar el in 
vasor de la posicion anterior 

79 REM elimine el punto y coma para probar 

80 PRINT * "invasors; 

90 NEXT 


Es fundamental aquí el punto y coma que termina la sentencia PRINT, 
ya que, cuando se utiliza TAG para controlar la escritura de caracteres, 
los códigos entre O y 31 no son obedecidos, sino dibujados. Sin el punto 
y coma, se dibujarían en cada caso los caracteres 10 y 13 que, como ca- 
racteres de control, son CR y LF (los que sirven para llevar el cursor al 
comienzo de la línea siguiente). Lo verá aún mejor con el ejemplo del 
cohetes 


10 MODE 1 
19 REM los tres caracteres que definen el cohete 
20 SYMBOL 248,0,24,24,24,24,36,36, 36 

30 SYMBOL 241,36,36,36,36,36,36, 36,76 

40 SYMBOL 242,66,129,129,129,129,153, 195,129 

50 cohetes=CHR$(240)+CHRS (8) +CHR$ (10) +CHR$ (241) + 
CHR$ (8) +CHR$ (10) +CHR$ (242) 

40 TAB 
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70 xgrafico=200: ygrafico: 
80 FOR y=ygrafico TO 350 . 
89 REM se borra la base del antiguo cohete 
90 MOVE «grafico, y-24 

100 PRINT "0 

109 REM imprimir el nuevo cohste(que-birria) 
110 MOVE xgrafico,y 

120 PRINT cohetes; 

130 NEXT 


¡Nada que ver con lo que queríamos! Los problemas que crea el mo: 
miento del cursor, tanto en el modo de texto como en el gráfico, son más 
sencillos de resolver para figuras sencillas. Si una figura está formada 
por una tira horizontal de caracteres, entonces se la puede situar con una 
sóla instrucción MOVE, ya que, al escribir un carácter, el cursor gráfico 
se mueve automáticamente el espacio equivalente a la anchura de un ca- 
rácter, colocándose en la posición adecuada para el siguiente. Nuestro 
camión funcionará sin problemas por este métod: 


10 MODE 1 
19 REM los tres caracteres que fornan el camion 
20 SYMBOL 240,0,0,96,96,96,127,18,12 

21 SYMROL 241,0,0,0,0,0,255,0,0 

22 SYMBOL 242,248,132,132,255,255,255,72, 48 

30 camiont=CHRS (240) +CHR (241) +CHR$ (242) 

40 xgratico=0: ygrafico=200 

49 REM asociar el texto al cursor grafico 

50 Ta 

60 FOR x=xgrafico TO 600 

70 MOVE x,ygrafico 

7% REM el espacio en blanco es para borrar la pa 
rte trasera del camion anterior 

80 PRINT " "camion$; 

90 NEXT 


Para el cohete, sin embargo, hay que utilizar una serie de instrucciones 
MOVE: 


10 MODE 1 
19 REM los tres caracteres que definen el cohete 
20 SYMBOL 240,0,29,24,24,24,36,36,36 
30 SYMBOL 241,36,36,J6,36, 36, 36, 36,36 
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40 SYMBOL 242,46,129,129,129,129,1893,195,129 
50 cohetearribad=CHR4 (240) 

Si cohetemedios=CHR$ (241) 

52 coheteabajot=CHR$ (242) 

$n Tas 

70 xgrafico=300: ygrafici 
BQ FOR y=ygrafico TO 350 

89 REM se borra la base del antiguo cohete 
90 MOVE xgrafico, y-48 

100 PRINT O" "; 

110 MOVE xgrafico,y 

120 PRINT cohetearriba$; 

121 MOVE xgrafico,y-16 

122 FRINT cohetemedios; 

123 MOVE xgrafico,y-32 

124 PRINT coheteabajo$; 

130 NEXT 


La sentencia TAG se anula mediante la TAGOFF; también se anula auto- 
máticamente al finalizar un programa 


Movimientos más rápidos 


Ya se habrá dado cuenta del precio que hay que pagar a cambio de obte- 
ner movimientos suaves de las figuras: el programa va más lento. Hay 
una serie de medidas que podemos tomar para que el programa vaya lo 
más rápidamente posible. 

En primer lugar, se aumenta la rapidez si se trabaja con números ente- 
ros siempre que sea posible. Esto permite al ordenador hacer los cálculos 
con mayor rapidez. Puede que piense que no hemos utilizado otra cosa 
que enteros en los programas precedentes, pero no es así. El ordenador 
trata todos los números como reales (mimeros con punto decima)) si no 
se le dice otra cosa. Para declarar ciertas variables como enteras se puede 
utilizar la instrucción DEFINT: 


1 DEFINT x,y 


El ordenador tratará entonces como enteras a todas las variables numéri- 
cas que comiencen por G, X o Y. Se puede observar el cambio que esto 
origina en la velocidad si se realiza el mismo programa con y sin la especi- 
ficación de números enteros: 
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1 DEFINT x,y 

10 MODE 4 

19 REM los tres caracteres que forman el camion 
20 SYMBOL 24D,0,0,94,96,96,127,18,12 

21 SYMBOL 241,0,0,0,0,0,255,0,0 

22 SYMBOL 242,248,132,132,255,255,255,72, 48 

30 camiont=CHR (240) +DHR$ (241) +CHR$ (242) 

40 «graficos: ygrafíco=200 

49 REM asociar el testo al cursor grafico 

se 
55 


IME 
60 grafico TO 408 

70 MOVE x,ygrafico 

79 REM el espacio en blanco es para borrar la pa 
rte trasera del camion anterior 

BO PRINT " "camion$; 

90 NEXT 

99 tiempototal=TIME 

100 TAGOFF 

110 LOCATE 1,20 

120 PRINT "Tiempo transcurrido "(tiempototal-tis 
mpoinicial)/308 "segundos" 


Una segunda manera de lograr más rapidez es observar cuál es el mínimo 
desplazamiento que puede efectuar realmente el ordenador en cada mo- 
do. Si en modo 0 se desplaza horizontalmente un carácter en una sola 
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Figura 2.9. Dos caracteres que representan “invasores del espacio”” 
el primero es más útil, ya que su borde sirve para borrar lo que 
queda de él en la posición anterior. 
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unidad, se vuelve a obtener el mismo carácter. Para obtener un desplaza- 
miento horizontal hay que modificar la coordenada horizontal en al me- 
nos 4 unidades en modo 0, y en 2 unidades en modo 1. En vertical, la 
modificación debe ser de 2 unidades en cualquiera de los modos. 

Finalmente, podemos diseñar caracteres que tengan un borde vacío al- 
rededor dela figura. Esto garantiza que al desplazarse en cualquier direc- 
ción no va dejando huellas tras de sí. La segunda de las dos figuras de 
“invasores del espacio” que están dibujadas en la figura 2.9 debe ser bo- 
rrada cada vez que se produce un desplazamiento. Esto contribuye a ha- 
cer más lento el programa. 


¿Y ahora qué más? 


Muchos programas de juegos necesitan identificar lo que hay en una de- 
terminada posición de la pantalla, Por ejemplo, ¿cómo saber si un coche 
choca al correr contra la barrera?; o ¿cómo saber si nuestro disparo ha 
alcanzado a un invasor?. Utilizando TEST (x.y) para determinar el mú- 
mero de tinta que cubre una determinada posición gráfica. Eligiendo cui- 
dadosamente los colores que se emplean, esto puede servir para que el 
programa sepa qué es lo que hay en una posición que se ha alcanzado. 
Podemos dibujar en rosa todas las arañas, por ejemplo, y hacer que el 
programa reaccione cuando llevamos nuestra mosca a una posición pinta- 
da de rosa: 


1 REM para aumentar la velocidad 

S DEFINT c,x,y 

10 MODE Q 

19 REM caracteres mosca y arana 

20 SYMBOL 240,0,36,78,70,98,36,0,0 

30 SYMBOL 241,145,82,52,31,248,44,74,137 


40 muscat=CHR$ (240) 
SO aranat=CHR$(241) 

60 GOSUB 1008 

70 

sn 

90 ytest=axmosca: ytest=ymosca 


190 MOVE xmosca,ymosca:FLOT xnosca,ymosca, 1 
110 GOSUB 2008 

120 respuestas="":moscamuerta=0 

129 REM se leen caracteres del teclado mientras 
la mosca síga viva 


44. "TÉCNICAS DE PROGRAMACIÓN DE GRÁFICOS EN EL AMSTRAD: 


130 WHILE respuestas="" OR noscamuerta=0 
149 xnuevo=imosca: ynuevo=ymosca 

150 respuestat=LOWER$ (INKEYS) 

159 REM la posicion (xtest,ytest) para comprobac 
ton del color depende de la direccion del movimi 
ento 

160 IF respuestas="a" THEN ynuevi 
=xnuevo+16:ytest=ynuevo+8 

2" THEN ynuew 
muevo-24 

-% THEN xnuevo=xmosca+4rytest 
=xnuevo+48: ytest=ynuevo-8 

198 1F respuestat="," THEN xnuevo=xmosca-4:xt 
nuevo-16: ytest=ynuevo-B 

208 1F xnuevo<xmosca OR ynuevo<>ymosca THEN G0S 
UB 2008 

218 WEND 

220 MODE 1 

238 END 

999 REM color rosa 

1000 MOVE 0,0 

1010 DRAW 2,D,11 

1929 TAG 

1029 REM dibujar 10 aranas aleatoriamente 

1030 FOR aranas=1 TO 10 

1048 xarana=INT (SB2%RND (1) +20) 

1050 yarane=INT(30DRND (1) +20) 

1069 MOVE xarana, yarana 

1070 PRINT aranas; 

1080 NEXT 

1090 RETURN 

1999 REM se comprueba el color de la siguiente p 
osicion del caracter 

2000 color=TEST (xtest,ytest) 

2008 REM sí es rosa, muere la mosca 

2089 REM no se considera tocar la arana el tocar 
solo la suprficie 

2010 IF color=11 THEN moscamuerta=1:SOUND 7,2000 
2019 REM dibujo de la mosca en la nueva posicion 
2028 xmosca=xnuevo: ymosca=ynuevo 

2050 MOVE «mosca, ymosca 

2060 PRINT moscas; 

2070 RETURN 


Ymosca+2entest 


-ymosca-2xtest 
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Podemos modificar el juego utilizando contadores de tiempo: 

120 respuestas="":moscamuerta=0 

126 REM ahora hay que alcanzar con la mosca la e 
aquina superior izquierda 

127 REM lo mas rapidamente posible, puesto que e 
uenta el tiempo 

128 tiempoinicial=TIME 

129 REM se leen caracteres del teclado mientras 
la mosca siga viva y no se alcance la esquina 
130 WHILE (respuestas="" OR moscamuerta=0) AND ( 
xmosca<600 OR ymosca<300) 

148 xnuevo=xmosca: ynuevo=ymosca 

150 respuesta$=LOWERS (INKEYS) 

159 REM la posicion (xtest,ytest) para comprobac 
ion del color depende de la direccion del movimi 
ento 

160 1F respuestas="a" TMEN ynuevo=ymosca+Zrxtest 
=xnuevo+16: ytest=ynuevo+2 

170 1F respuestas="2" THEN ynuevo=ymosca-21xtest 
=xnuevo+161 ytest=ynuevo-24 

180 IF respuestas="." THEN xnuevo=rmosca+4rxtest 
—=xnuevo+40: ytest=ynuevo-2 

190 1F respuestas="," THEN xnuevo=xmosca-41xtest 
=xnuevo-16: ytest=ynuevo-8 

200 1F xnuevo<>xmosca OR ynuevo<>ymosca THEN G0S 
UB 2000 

210 MEND 

215 TAGOFF:CLS 

220 1F moscamuerta=2 THEN PRINT “Tiempo: "TINE-t 
iempoinicial 

230 END 


Una variante del comando TEST es el TESTR; la diferencia estriba en que 
en TESTR la posición que examina se define por su desplazamiento relati- 
vo desde la posición actual. Por ejemplo, TESTR (10, -5) examina el 
punto que se encuentra 10 unidades a la derecha y 5 unidades arriba del 
actual. 

El siguiente programa nos enseña cómo se utiliza; consiste en conducir 
un coche sobre una pista de carreras, sin salirse de la carretera que está 
pintada en negro. 
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10 MODE 0 
20 GOSUB 1000 
30 GOSUB 2000 
40 END 


1000 
1018 
1020 
1029 
1030 
1049 
1050 
1069 
1078 
1089 
1090 
1100 
1109 
1110 
1120 
1121 
1130 
1140 
1141 
1150 
1160 
1178 
1188 
1198 
1200 
1210 
1220 
1238 
1240 
1250 
1260 
1280 
1290 
1300 
1320 
1330 
1349 
1360 
1379 


PAPER 12 
PEN O 

cLs 

REM dibujo de la pista 
ladox=3:1adoy=7 

FOR y=ladoy TO ladoy+11 

LOCATE ladox, y 

PRINT CHR$ (143) CHR$ (143) 3 

LOCATE ladox+15, y 

PRINT CHA (143)CHR$ (143) 5 

NEXT % 
xcom=7:ycom=S 

FOR con=-1 TO 1 

LOCATE «com, ycomtcon 

PRINT STRINGS(8,CHR$(143))3 

LOCATE xcom,ycom>1 

LOCATE com, ycom+15+con 

PRINT STRING$ (8,CHR$ (143))5 

NEXT 

TAG 

color=0 

xizgr32ider=576 

yabajo=150: yarriba=330 
ycambio=6:xcambio=32 

PLOT xizqtxcambio,yarribatycambio,color 
FOR con=1 TO 4 

yycambio=ycambiotcon 
xxcambio=xcambio*con 

MOVE xizqhocambio, yarribatyycambio 
PRINT CHR$ (143) 

GOSUB 1400 

MOVE xder=xxcambio, yarriba+yycambio 
PRINT CHR$ (143) 5 

GOSUB 1600 

MOVE xizqrxcambio, yabajo-yycambio+8 
PRINT CHR$ (143) y 

GOSUB 1600 

MOVE «der=xxcambio, yabajo-yycambio+8 
PRINT CHR$ (143) 
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1380 GOSUB 1608 
1400 NEXT 

1408 REM dos caracteres representando un coche 
1409 uno para movimiento arriba/abajo; otro para 
movimiento izquierda/derecha 

1410 SYMBOL 240,0,102,36,126,126,36,102,0 

1420 SYMBOL 241,0,90,126,24,24,126,90,0 

1430 ladot=CHR$ (240) 

1440 
1450 
1460 xcoche=400: ycoche=338 
1470 PLOT xcoche+16, ycoche-4,3 
1480 MOVE xcoche, ycoche 

1490 PRINT coches; 

1500 RETURN 

1600 FOR coni=1 TO 4 

1610 MOVER -32,-16 

1620 PRINT CHR$(143)5 

1630 NEXT 

1640 RETURN 

1999 REM examen del teclado 
2000 golpe=0 

2018 xcambio=0:ycambi 
2020 WHILE golpe=0 
2030 respuestat=LOWERS (INKEYS) 

2040 1F respuestat="a" THEN xcambio=0:ycambio=21 
coches=arribab:testx=-16:testy=2 

2090 1F respuestas="2" THEN xcambic=0: ycambio==2 
1coches=arribasitesti=-16rtesty=-16 

2068 1F respuestas=" 
coches=l ados: testx=0; test 
2070 1F respuesta$="," THEN xcambio=-4:ycambio* 
¡cochetmlados: testx=—36: testy=-8 

2079 REM la barra de espacio para parar el coche 
2080 1F respuestas=" " THEN xcambio=0: ycambio=0 
2089 REM solo se dibuja el coche si se ha movido 
2090 IF xcambioc>2 OR ycambio<0 THEN GOSUB 3000 
2100 WEND 

2110 RETURN 

2999 REM se conproeba el color del punto siguien 
te ala posicion actual 

3000 color=TESTR (testx,testy) 
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ycambio=01 
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3009 
ade 
3010 
3020 
3030 
3040 
3050 


Ejercicios 


REM si no es el de ink Q el coche esta fuer 
la pista 

IF color<>0 THEN golpe=1:SOUND 7,500 
xcoche=xcochetxcambio: ycoche=ycoche+ycambio 
MOVE xcoche,ycoche 

PRINT coches; 

RETURN 


. Añada nuevos obstáculos a la pista de carreras, como balas de paja 


amarillas o los restos calcinados de un coche. 

Cree una oruga verde, compuesta por varios caracteres, que se arrastre 
lentamente por la pantalla. 

Añada frutas rojas situadas aleatoriamente en la pantalla; cuando la 
oruga coma alguna de ellas, debe volverse azul y morirse. 
Programe el control de la oruga mediante el teclado, y ayúdela a sal- 
varse de los peligros moviéndola verticalmente para evitar las frutas. 
El animal quedará a salvo cuando consiga alcanzar un paquete de hier- 
ba verde situado a la derecha de la pantalla. 
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Gráficas y diagramas 


En el capítulo anterior nos hemos interesado por la manera en que se pue- 
den emplear las técnicas gráficas en los juegos; pero, incluso en un mi- 
croordenador, podemos encontrar muchas aplicaciones serías para estas 
técnicas. En los últimos años han proliferado los programas para peque- 
ñas empresas, programas que llegan a tener un alto nivel de sofisticación. 
Muchos de ellos tienen como objetivo primordial la presentación más 
adecuada de series de datos para facilitar su rápida comprensión. En lu- 
gar de proporcionar largas listas llenas de cifras, lo que hacen es estructu 
rar todos esos datos en forma de gráficas, diagramas de barras, diagra- 
mas de sectores, etc., y de combinaciones de estos tipos. El color y las 
gráficas de alta resolución hacen que sea más sencillo reconocer las carac- 
terísticas esenciales o las tendencias en una serie de datos. El empleo del 
ordenador proporciona además la posibilidad de recalcular y dibujar con 
rapidez una nueva gráfica, para ilustrar, por ejemplo, las consecuencias 
de una disminución de los precios. Vamos a concentrarnos en este capítu- 
lo en las formas de programar la realización de las tres formas más usua- 
les de representación de datos: gráficas, diagramas (o histogramas) de ba- 
rras y diagramas de sectores. A estas alturas del libro es importante cono- 
cer ya algunas de las reglas básicas que deben respetarse cuando se desean 
desarrollar programas de aplicación. 

En primer lugar, no hay que intentar escribir un programa como un to- 
do. Es más fácil desarrollar, corregir y mejorar un programa que ha sido 
escrito en módulos, o sea, pequeñas secciones de programa cada una de 
las cuales tiene un propósito determinado, como, por ejemplo, dibujar los 
ejes en una gráfica o colorear una barra en un diagrama de barras. 

En segundo lugar, un programa no es nada flexible si está ligado a valo- 
res específicos. Es posible que un programa para dibujar los ejes de una 
gráfica funcione perfectamente, pero, si contiene líneas como 


100 MOVE 308,390 
110 DRAW 308,120 
120 DRAW 630,120 
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será difícil utilizarlo en otras circunstancias y, cuando haya que hacer otra 
gráfica diferente, habrá que reescribirlo completamente. Es mejor usar 
variables siempre que sea posible. Esto presenta varias ventajas: los nom- 
bres de variables pueden ser más significativos que las tiras de números y 
el programa será más fácil de adaptar o modificar al cabo de varios meses. 

Además, el empleo de variables permite escribir un programa de uso ge- 
neral que proporcione la gráfica correspondiente a una serie de datos; a 
la hora de utilizarlo, los únicos cambios a hacer serán los propios datos, 
sin necesidad de reeditar el programa línea por línea para ponerlo de 
acuerdo con las nuevas circunstancias. 

Escribir un programa de esta manera requiere inicialmente mayor refle- 
xión y más trabajo. Pero merece la pena el esfuerzo suplementario, ya 
que con ello se evita el escribir varios programas diferentes que realicen 
más o menos la misma tarea. 


GRÁFICAS DE PUNTOS Y LÍNEAS 


Cuando se va a realizar una gráfica, la primera cuestión a resolver es la 
dela resolución necesaria. En el Amstrad podemos elegir entre diferentes 
modos, con diferentes resoluciones horizontales y la misma vertical. En 
general, por su alta resolución, es mejor el modo 2 para dibujar una grá! 
ca con muchos puntos. Pero, lamentablemente, en este modo sólo se 
pueden utilizar dos colores. Cuando el número de puntos a representar 
esinferior a 300, el modo 1 da un buen equilibrio entre resolución y color: 
320 puntos en horizontal y cuatro colores. 

El Amstrad está diseñado de forma que el cambio de modo de pantalla 
no afecte al intervalo de variación de las coordenadas. Por ello, los pro- 
gramas que siguen funcionarán generalmente bien en cualquiera de los 
modos, a pesar de variar la resolución. 

Vamos a comenzar por desarrollar un programa (muy corto). Por el 
momento dedicaremos a la gráfica toda la pantalla, dejando el problema 
de la rotulación para más tarde. Escribiremos el programa como una se- 
rie de subrutinas. Con esto tendremos mayor flexibilidad para poder di- 
bujar varias series de datos en la misma gráfica, o dibujar varias gráficas, 
sin necesidad de grandes cambios en el programa: 


10 MODE 1 
20 GOSUB 500 

30 GOSUB 808 

40 END 

499 REM dibujar los ejes 
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500 ypunto=399 
510 xpunto=439. 

520 MOVE O,ypunto 

530 DRAW 0,0,1 

540 DRAW «punto, 0 

550 minx=200 

56D maxx=4000 

570 difx=maxi—ninx 

500 miny=100 

590 maxy=1000 

¿00 dify=maxy-miny 

610 puntox=dif/xpunto 

620 puntoy=d1fy/ypunto 

690 RETURN 

799 REM leer puntos del data y dibujarlos 
800 READ nundepuntos 

805 DIM x(numdepuntos), y (numdepuntos) 

210 FOR con=1 TO nundepuntos 

815 READ x (com) 1xdib=(x (con)=mimx) /puntox 
820 READ y (com) :ydib=(y (con)=miny) /puntoy 
825 PLOT xdib,ydib 

830 NEXT 

990 RETURN 

1000 DATA 5,202,100, 1000, 200, 1500, 300, 2500, 400, 4 
000,1000 


En las líneas 500 a 540 se dibujan los ejes. El origen se sitúa en la esquina 
inferior izquierda de la pantalla. Es importante conocer los valores máxi- 
mo y mínimo de los datos que hay que representar, de manera que se pue- 
da realizar la gráfica con una escala adecuada para que quepa en la panta- 
lla. Estos valores se dan de manera explícita entre las líneas 550 a 600, 
aunque ya veremos más tarde cómo el ordenador puede obtener por sí 
mismo estos valores a partir de los datos a representar. Cuando el orde- 
nador conoce la diferencia entre el máximo y el mínimo, puede calcular 
la longitud unitaria en el eje X y el eje Y para que quepan todos los datos; 
esto es lo que hace en las líneas 610 y 620. El origen representará entonces 
el punto (min x, min y), y la esquina superior derecha de la pantalla el 
punto (max x, max y). Finalmente, el programa lee los valores de las 
coordenadas x e y de los distintos datos, los reduce a escala y los dibuja 
en las líneas 800 a 830. Por el momento los datos están ordenados si- 
guiendo el orden creciente para la coordenada x. Ya veremos más adelan- 
te qué hay que hacer cuando los datos están ordenados aleatoriamente, 
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Puede ejecutar varias veces el programa, cambiando en cada caso los 
valores de max x y de max y para ver el efecto que esto produce. Doblan- 
do el valor de max x el programa aplasta la gráfica hacia la izquierda, al 
mismo tiempo que permite utilizar mayores valores de x que los que figu- 
ran en los datos. Doblando el valor de max y se produce un aplastamien- 
to de la gráfica hacia abajo. Cosas similares ocurren al cambiar min x 
y min y. Si le disgusta el hecho de que el origen represente (100, 200) en 
lugar de (0, 0), cambie los valores de min x y min y 2.0. (Observe que esto 
hace que en una gran zona de la pantalla no se dibujen puntos.) Recuerde 
que los datos de la línea 1000 están en determinado intervalo, y que, cam- 
biando los valores de min x, etc., puede perder puntos de la gráfica, 

La ejecución del programa revela algunos problemas, como que los 
puntos y la gráfica son algo difíciles de apreciar. Algunos cambios permi- 
ten mejorar la situación: 


10 MODE 1 
20 BOSuB san 

30 SOSUB aa 

40 END 

499 REM dibujar los ejes 
500 ypunto=399 

510 xpunto=639 

528 MOVE O,ypunta 

550 DRAM 0,0,1 

540 DRAW xpunto, 0 

550 minx=200 


560 
578 

580 

598 maxy=1000 

600 dify=maxy=mi ny 


610 puntox=difx/xpunto 
620 puntoy=dify/ypunto 

690 RETURN 

799 REM leer puntos del data y dibujarlos 
800 READ nundepuntos 

805 DIM x (nundepuntos), y (numdepuntos) 

806 READ tintaM,tintal 

807 INK D,tintad 

508 INK 1,tintal 

807 PAPER OPEN 1 

818 FOR con=1 TO numdepuntos 
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815 READ x(con) 1xdib=(x(con)=mimo /puntox 
820 READ y (con): ydib=(y (conm=miny) /puntoy 

825 PLOT xdib,ydib 

830 NEXT 

990 RETURN 

1009 DATA 5,0,24,200,100,1000,200, 1500, 300,2500, 
400, 4000, 1000 


Ahora, los colores que se utilizan en la gráfica se especifican en la senten- 
cia DATA. De la misma forma podríamos especificar MODE, pero va- 
mos a mantenernos en el modo 1. Podemos hacer más visibles los puntos 
dibujando en su lugar una cruz o un cuadrado. Esto es muy sencillo de 
hacer utilizando movimientos relativos 


10 MODE 1 
20 GOSUR 500 

30 GOSUR 800 

40 END 

499 REM dibujar los ejes 

500 ypunto=399 

510 xpunto=639 

520 MOVE Q,ypunto 

530 DRA 0,0,1 

540 DRÁN «punto, 0 

550 min=200 

560 maxx=4000 

570 di fx=maxi=minx 

580 miny=100 

590 maxy=1000 

600 dify=mauy=miny 

610 puntox=difx/xpunto 

620 puntoy=dify/ypunto 

690 RETURN 

799 REM leer puntos del data y dibujarlos 
200 READ numdepuntos 

805 DIM y (nundepuntos), y (nundepuntos) 
806 READ tintad, tintal 

807 INk 0,tintad 

808 INK 1,tintal 

809 PAPER OPEN 1 

810 cruzx=10 

811 cruzy=10 
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814 
815 
820 
825 
630 
2aa 
esa 
860 
870 
een 
590 


1000 DATA 5,0,24,200,100,1000,200,1500,300,2500, 


FOR con=1 TO nundepuntos 


READ x (con: 


(dib=(x (con =mi mx) /puntor 


READ y (con) +ydib=(y (con)=miny) /puntoy 
PLOT xdib,ydib 


MOVER 
DRAWR: 
MOVER 
DRAWR: 
MOVER 
NEXT 


=eruzx,cruzy 
2rcruzx, -2Xcruzy 
—2rcruzx, 0 
2seruzx, 2Xcruz y 
eruzx,=eoruzy 


RETURN 


400, 4090, 1000 


Los datos para los brazos de la cruz se fijan mediante dos variables, en 
lugar de tomarlos de la sentencia DATA. Es mejor así, ya que serán da- 
tos que no cambiarán de una a otra ejecución del programa. Puede modi- 
ficar las longitudes para que la cruz sea mayor o menor que la del ejem- 
bastará con cambiar dos líneas. 

El programa mejorará si damos la opción de unir los sucesivos puntos 
de la gráfica. Para ello se utiliza la variable unir que, según el valor que 


pl 


tome, hace que los puntos se dibujen unidos o sueltos; 


10 MODE 1 
20 GOSUB 500 
30 GOSUB 802 
22 END 
477 REM dibujar los ejes 
520 ypunto=299 

S1Q xpunto=639 

520 MOVE O, ypunto 

552 DRAW 0,0, 1 

548 DRAW xpunto, 0 

550 minx=200 

560 maxx=4000 

570 di fe=max—minx 

580 miny=100 

57 may=1008 

600 dify=maxy=miny 

610 puntox=difx/xpunto 


620 puntoy: 


li Fy/ypunto 


490 RETURN 


799 
E 
sos 
206 
807 
sos 
sas 
aro 
811 
e12 
B14 
815 
816 
820 
821 
825 
830 
890 
ase 
860 
870 
874 
de 

875 
2 
esa 
99 
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REM leer puntos del data y dibujarlos 
READ numcdepuntos 

DIM x (nundepuntos),y (numdepuntos) 
READ tinta, tintal 

INK 0,tintad 

INK 1,tintal 

PAPER Q:FEN 1 

cruzx=10 

cruzy=18 

unir=1 

FOR con=1 TO nundepuntos 

READ x (con) +xdib=0:(con)-minx) /puntox 
x (com) =xdib 

READ y (con) + ydib=(y(con)=miny) /puntoy 
y (con) =ydib 

PLOT xdib,ydib 

MOVER —cruzx,cruzy 

DRAWR 2*cruzx,-Zecruzy 

MOVER -2%cruzx,0 

DRAWR Z*cruzx, 2eruzy 


MOVER —cruzx,-cruzy 

REM si unir esta a 1 los puntos se van unien 
IF unir=1 AND con>1 THEN DRAM x(con=1),y(con 
NEXT 

RETURN 


1002 DATA 5,0,24,209,100,1000,200,1500,300,2500, 


600, 


El mayor de 


, 4000, 1000 


lefecto de este programa es la falta de rotulación. Como el grá- 


fico está pegado a la esquina inferior izquierda de la pantalla, no hay sitio 


para ella. 


Puede parecer que esto obliga a modificaciones importantes 


del programa. De hecho, el uso de variables y la capacidad del Amstrad 
para cambiar el origen hacen que sea muy sencillo mover los ejes: 


10 
20 
30 
40 
499 
500 


MODE 1 
SOSUB 500 

SOSUB 80n 

END 

REM dibujar los ejes 
ox=100: 0y=50 
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505 ORIGIN ox, oy 
510 ypunto=399-oy 

515 xpunto=639-ox 

520 MOVE M,ypunto 

530 DRAW 0,8, 1 

540 DRAW xpunto, 0 

550 minx=200 

560 maxx=4008 

570 difu=maxx=minx 

500 miny=100 

590 maxy=1000 

600 dify=maxy=miny 

610 puntox=difx/xpunte 

620 puntoy=dify/ypunteo 

690 RETURN 

799 REM leer puntos del data y dibujarlos 
500 REÁD nundepuntos 

503 DIM x (numdepuntos), y (nundepuntos) 

306 READ tintad,tintal 

907 INK Q,tintad 

808 INK 1,tintal 

809 PAPER M:PEN 4 

810 cruen=18 

811 cruzy=10 

812 unir=1 

814 FOR con=1 TO numdepuntos 

815 READ x (con) rxdib=(x (con)=minx) /puntox 
B16 « (cond=rdib 

820 READ y(con 
821 y (con) =ydib 
825 PLOT xdib,ydib 

830 MOVER —cruzx,cruzy 

240 DRAWR Zecruzx,-2xcruzy 

850 MOVER —2*cruzx,0 

860 DRAWR Zscruzx, 2Xcruzy 

970 MOVER —cruzx,-cruzy 

874 REM si unir esta a 1 los puntos se van unien 
do 

875 IF unir=1 AND con» THEN DRAW x(con-1),y(con 
-. 

890 NEXT 

990 RETURN 

1000 DATA 5,0,24,200,100,1000,200,1500,300,2500, 
600, 4000, 1000 É 


ddib=(y (con)=miny) /puntoy 
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Hemos cambiado las antiguas líncas 500 y 510, puesto que ya no utiliza- 
mos toda la pantalla para la gráfica. El resto del programa puede cont 
nuar igual; las líneas y puntos se dibujarán ahora en relación al nuevo ori- 
gen, como comprobará ejecutando el programa. Si cambia los valores de 
ox y oy, verá cómo no cambia el aspecto de la curva al trasladar el origen, 
salvo en lo que se refiere a su tamaño, 

Ahora tenemos sitio para poner marcas en los ejes y escribir los corres. 
pondientes rótulos; pero esto no se puede hacer de manera totalmente 
automática. Seguramente no tendremos problemas con el eje y, ya que 
parece que, al elegir el origen, hemos dejado sitio suficiente para los 
rótulos. 

Por otro lado, aunque tengamos sitio en el eje x para 10 divisiones, na- 
da impide que consideremos más conveniente hacer un número menor, 
como, por ejemplo, 5 divisiones. El número máximo de divisiones está 
sin embargo limitado por dos factores: la resolución del modo que se em- 
plee y la anchura de los caracteres que vayan a escribirse debajo de las 
marcas. Lo que el ordenador puede hacer es calcular en qué casos vamos 
a obtener rótulos que se solapen unos con otros; pero no puede elegir por 
sí mismo un intervalo menor que sea conveniente, Los números que re- 
presentan distancias adecuadas, como 0.5, 10, 20, 25, 100, etc., dependen 
más bien de nuestros hábitos y de las circunstancias. Vamos a hacer que 
seamos nosotros quienes elijamos los intervalos y que el ordenador recha- 
ce los valores que no sean razonables. El etiquetado se divide en dos par- 
tes: poner las marcas y escribir los rótulos. La primera acción puede no 
ser correcta si conduce a que los rótulos se solapen. Hay que informar 
al ordenador de la máxima longitud de los rótulos que deben escribirse, 
para que pueda calcular si podrá o no colocarlos uno tras otro debajo del 
eje X: 


503 REM se oculta la grafica hasta que este comp 
leta 

504 INK 0,24: IN 1,24 

628 REM numero de marcas en los ejes x e y 

629 REM sin incluir la del origen 

630 xcantida 
£40 ycantidad=10 

£49 REM distancia grafica entre las marcas 

450 xancho=INT G:punto/xcantidad) 

660 yalto=INTtypunto/ycantidad) —, 

668 REM cantidad maxima de caracteres de los num 
eros del eje» 
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669 REM esto tendra que cambiarlo para adaptarlo 
a sus propios datos 

670 maxxcadena=4 

673 REM tamano de los caracteres en el modo 1 (e 
n nunero de puntos) 

674 REM el ancho debe cambiar a 32 para el nodo 
0 ya 8 para el modo 2 

675 charancho 
676 charalto=16 

677 REM ae calcula la maxima longitud de la cade 
na en puntos graficos 

$80 grafucadena=charanchormax:cadena 

688 REM no se rotulan los ejes cuando habría que 
poner nuneros demasiado grandes 

489 REM o cuando la distancia entre narcas es me 
nor que el tamano de un caracter 

690 1F xanchocgrafxcadena OR xancho<charancho TH 
EN RETURN 

691 REM lo misno para el eje y 

692 maxycadiena=a 

694 grafycadena=charanchormaxycadena 

696 1F oxtgrafycadena OR yalto<charalto THEN RET 
URN 

699 REM longitud de las marcas de los ejes 

700 ymarca=é 

702 ymarca=8 

703 REM el rotulo de cada marca sera de un valor 
xvalor mas alto que el anterior 

704 xvalor=d1fx/xcantidad 

706 TAG 

707 REM se avanza xcantidad veces para obtener e 
1 nunero de marcas que corresponde 

788 FOR con=08 TO «cantidad 

710 MOVE 0,0 

711 REM avance en el eje hasta en comienza de la 
marca 

712 MOVE xancho*con,0 

713 REM dibujo de la marca 

714 DRAWR 0, =xmarca 

728 NEXT 

729 REM lo mismo para el eje y 

730 yvalor=dify/ycantidad 

732 FOR con=0 TO ycantidad 
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734 MOVE 0,0 

736 MOVER 0, yaltorcon 
738 DRAWR -ymarca, 0 
754 NEXT 

790 RETURN 


¡ no le gusta el tipo de marcas que hemos elegido, puede usted programar 
el que desee. Para ello basta con que modifique las líneas correspon- 
dientes. 

En lugar de volver a calcular las posiciones de las marcas en el momen- 
to de poner los rótulos, lo mejor es incluir una rutina que ponga el texto 
al mismo tiempo que las marcas: 


708 FOR con=8 10 «cantidad 

710 MOVE 0,0 

711 REM avance en el eje hasta en comienzo de la 
marca. 

712 MOVE xancho*con,D 

713 REM dibujo de la marca 

714 DRAWR 0,—-knarca 

715 REM posicion para escribir el rotulo de la m 
arca 

716 MOVER -charancho/2,-:marca 

718 numeros=STR$ (minx+consexvalor) 

719 REM se trunca el numero si es demasiado larg 
72% numeros=M1D$ (nunero$,2, maxxcadena) 

722 Longitud=LEN (nuneros) 

723 REM se suprime el punto decimal sí es el ult 
imo caracter 

724 1F MIDS (numeros, longitud)="." THEN numercé=M 
IDS (numeros, 1,Longitud=1) 

726 PRINT numerot; 


728 NEXT 
729 REM lo mismo para el eje y 
730 yvalor=dify/ycantidad 


732 FOR con=8 TO ycantidad 

724 MOVE 0,0 

736 MOVER Q,yal tox*con 

730 DRAWR —ymarca, 0 

740 MOVER —grafycadena, charalto/2 

742 nuneros=STR$ (miny+consyvalor) 

744 nunerosaMID$ (numeros, 2, maxycadena) 
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746 longitudsLEN (numeros) 
748 1F MIDS(numeros, longitud) 
1D% (numeros, 1, 1ongitud-1) 

749 REM esto es para alinear los numeros junto a 
las narcas 

750 1F LEN(numeros)<maxycadena THEN nuneros=STRI 
NOS (maxycadena-LEN (numeros) ," ")+numeros. 

752 PRINT numeros; 

754 NEXT 

798 RETURN 


"THEN numeros=" 


También podemos poner un rótulo en cada uno de los ejes y escribir un 
título general de la gráfica. Para ello el origen debe estar elegido de ma. 
nera que quede sitio para todo esto, 


755 REM rotulos de los ejes 
rotulos="numero de ratones" 

758 yrotulos="gramos de queso ruidos" 

759 REM longitud del rotulo en puntos graficos 
760 xrotulolonsLEN (yrotulos)*charancho 

761 REM espacio antes del rotulo, para que quede 
centrado 

762 «rotulocom= (x«punta-xrotulelon)/2 

763 REN colocarse a la altura conveniente debajo 
del eje x para escríbir el rotulo 

744 MOVE xrotulocom,-2*charalto 

766 PRINT x«rotulo$; 

757 REM lo mismo para el eje y 

768 yrotulolonsLEN(yrotulo$)*charalto 

778 yrotulocom=(ypunto+yrotulolon)/2 

771 REM hay que escribir separadamente cada letr 
a del rotulo, ya que va en vertical 

772 FOR con=1 TO LEN(yrotulos) 

77% REM se extrae un caracter del rotulo 

774 chars=M1D$(yrotulo$,con, 1) 

775 REM ponerse convenientemente a la izquierda 
para imprimir el caracter 

776 MOVE —charanchor (marycadona+2), yrotulocon-eh 
araltor(con-1) 

778 PRINT chars; 

788 NEXT 

790 RETURN 
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Todavía no está completo el programa, ya que sólo puede trabajar con 
datos previamente ordenados. En su forma actual puede ser útil para 
muchas cosas, como por ejemplo para mediciones de la precipitación de 
lluvia en un período de tiempo, o el estado de su cuenta bancaria mes a 
mes (aunque esto puede obligarle a poner un eje negativo). Cuando los 
datos no están ordenados de esta manera, hay que hacer que el ordenador 
los vaya leyendo y reordenando en caso nesesario. Para ello se almace- 
nan los datos en un vector y se procede a su clasificación: 


10 MODE 1 
20 GOSUB 500 

30 GOSuA san 

40 END 

499 REM dibujar los ejes 
500 ox=100+0y=50 

505 ORIGIN ox, oy 

510 ypunto=299-oy 

515 xpunto=639-ox 

520 MOVE 0, ypunto 

530 DRAW 0,0,1 

540 DRAN xpunto, 0 


570 difx=maxx—minx 
509 miny=108 

590 maxy=1000 

500 dify=maxy-miny 

610 puntox=difx/xpunto 

620 puntoy=dify/ypunto 

4090 RETURN 

799 REM leer puntos del data y dibujarlos 
800 READ numdepuntos 

805 DIM x(nundepuntos) ,y (nuadepuntos) 

BQ6 READ tintad,tintal 

807 INK M,tintad 

502 INK 1,tintal + 

809 PAPER O:PEN 1 

810 cruzx=10 

B11 cruzy=18 

812 unir=1 

814 FOR consi TO numdepuntos 

815 READ x (con) :xdib=0% (con)=mim) /puntox 
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816 x(con)=rdib 
820 READ yleon):ydib=(y (con) =miny) /puntoy 

821 y(con)=ydib 

825 NEXT 

829 REM ordenar la matriz x 

830 FOR con=2 TO nundepuntos 

840 FOR valor=con TO 2 STEP -1 

850 1F x(valor)<x (valor-=1) THEN GOSUB 1508 ELSE 
valor=2 

B60 NEXT 

870 NEXT 

880 FOR con=1 TO nundepuntos. 

898 PLOT x(com) ,y (con) 

900 MOVER -cruzx,cruzy 

910 DRAWR Zecruzk,-2Zxcruzy 

920 MOVER -2*cruzx, 0 

930 DRAWR Z*cruzx, 2*cruzy 

740 MOVER —cruzx),—eruzy 

950 REM si unir esta a 1 los puntos se van un 
endo 

960 1F unir=1 AND condi THEN DRAW x(eon=1),y (con 
-0 

970 NEXT 

970 RETURN 

799 los datos estan ahora desordenados 

1008 DATA 5,0,24,1000,200,4000, 1200, 202, 100,2500 
+ 600, 1509, 320 

1499 REM cambio en las matrices para que la ccor 
denada x mas baja vaya primero 

1500 tempx=x (valor) :tempy=y (valor) 

1510 x(valor)=x (valor=1) + y (valor)=y (valor=1) 
1520 x(valor-1)=tempx:y (valor=1)=tempy 

1530 RETURN 


El método de clasificación que se ha utilizado es el de inserción. Se orde 
nan las dos primeras coordenadas x; luego se coloca la tercera en su posi: 
ción correcta respecto de las otras dos. El proceso se repite con la cuartz 
y así sucesivamente, hasta que todas quedan colocadas de menor a mayor, 

La clasificación de datos numéricos o literales es uno de los temas más 
importantes en informática. Es posible que usted encuentre muy lento el 
procedimiento anterior si debe ordenar varios centenares de datos, y que 
prefiera otro método. El método de ordenación de burbuja es muy utili- 
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zado cuando se tienen datos que ya están algo ordenados. Sin embargo, 
para clasificación de grandes cantidades de datos, la única forma de con- 
seguir métodos rápidos es programarlos en código de máquina, 

La ventaja de clasificar los datos es que al mismo tiempo se pueden cal- 
cular los valores de min x, min y, max x y max y. 

El programa ha quedado con ciertos puntos débiles que usted podrá 
rectificar en los ejercicios que siguen. Sin embargo, es adecuado para 
bastantes situaciones. 


Ejercicios 


1. ¿Qué cambios hay que hacer para que el programa se pueda ejecutar 
en los modos 0.0 2? ¿Cómo reemplazar por variables los valores que 
dependen específicamente del modo de pantalla? 

2. Enel programa, el eje Y se dibuja siempre a la izquierda y el eje X aba- 
jo. Modifique el programa para que admita valores positivos y negati- 
vos de x y de y y para que trace los ejes por el punto (0, 0). 

3. Modifique el programa para que admita simultáneamente varios con- 
juntos de datos y los represente con colores diferentes. Hágalo sin re- 
petir secciones del programa; llame como subrutinas a las partes del 
actual programa que necesite. 

4. Modifique el programa para que dibuje dos gráficas con escalas dife- 
rentes en las dos mitades superior einferior de la pantalla. (Necesitará 
cambiar el valor de los límites de la variable y y cambiar dos veces el 
origen.) 

5. Mejore el programa para que los datos puedan ser almacenados y leí- 
dos de un fichero. 


DIAGRAMAS DE BARRAS 


Ahora que disponemos de un programa para realizar gráficas, nos resul 
tará bastante sencillo dibujar diagramas de barras, ya que hemos resuelto 
en la sección anterior muchos de los problemas que se presentan. El pro- 
ceso se simplifica bastante al tener que ocuparse sólo de la coordenada Y; 
en el otro eje es muy fácil calcular la anchura de las barras. Además, los 
datos ya están ordenados, con lo que no hay que atender a su clasifica 
ción. Las semejanzas con el programa precedente ponen de relieve las 
ventajas del uso sistemático de variables y subrutinas, 
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10 MODE 4 

20 GOSUB 500 

30 GOSUB 800 

40 END 

499 REN dibujar los ejes 
500 ox=100:0y=50 

503 REN se oculta la grafica hasta que este comp 
leta 

504 INK 0,24: INK 1,24 
505 ORIGIN ox, oy 

510 ypunto=399-0y 

515 xpunto=639-0x 

520 MOVE 0, ypunto 

530 DRAW 0,0, 1 

540 DRAW «punto, 0 


570 maxy=1000 

¿00 difynmanyominy 

¿20 1fy/ypunto 

628 REM numero de marcas; esta vez solo en el ej 
ey 

629 REM «cantidad es el numero de barras 

£30 READ nunerodebarras:xcantidad=numerodebarras 
$40 ycantidad=9 

649 REM distancia grafica entre las marcas 

£s0 xancho=INT (ipunto/xcantidad) 

660 yalto=INT (ypunto/ycantidad) 

£73 REM tamano de los caracteres en el modo 1 (e 
hn numero de puntos) 

674 REM el ancho debe cambiar a 32 para el modo 
2 y as para el modo 2 

675 charancho=16 

676 charalto=16 

£92 maxycadena=a4 

694 grafycadena=charancho*maxycadena 

¿96 IF oxsgrafycadena OR yaltoccharalto THEN RET 
URN 

699 REM longitud de las marcas de los ejes 

700 marc 
702 ymarca=8 

706 TAG 

728 REM el rotulo de cada marca sera de un valor 
yvalor mas alto que el anterior 
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29 REM se avanza ycantidad vec 
1 numero de marcas que corresponde 
730 yvalor=dity/ycantidad 

732 FOR con=0 TO ycantidad 

734 MOVE 0,0 

736 MOVER Q, yalto*con 

738 DRAWR —ymarca, 2 

740 MOVER —grafycadena, charalto/2 

742 numeros=STRE (miny+con*yval or) 

744 numero$=M1D$ (numeros, 2, maxycadena) 
746 longitud=LEN (numeros) 

748 1F MIDS (numeros, longitud) 
ID+ (numeros, 1,1ongitud-1) 
749 REM esto es para alinear los numeros junto a 
las marcas 

750 1F LEN (nunero$)<maxycadena THEN numero$=STRI 
NGS (maxycadens-LEN (numeros) 
752 PRINT numeros; 

754 NEXT 

755 REM rotulos de los ejes 
756 xrotulos="numero de ratones" 

758 yrotulo$="gramos de queso roidos" 

759 REM longitud del rotulo en puntos graficos 
760 «rotutolon=LEN (xrotulos)*charancho 

7é1 REM espacio antes del rotulo, para que quede 
centrado 

762 xrotulocom= («punta=rotulolon)/2 

76% REM colocarse a la altura conveniente debajo 
del eje x para escribir el rotulo 

764 MOVE xrotulocom,-2*charalto 

764 PRINT xrotulos; 

767 REM lo mismo para el eje y 

768 yrotulolon=LEN (yrotulc$)*charalto 

770 yrotulocoms(ypunto+yrotulolon)/2 

771 REM hay que escribir separadamente cada letr 
a del rotulo, ya que va en vertical 

772 FOR con=1 TO LEN(yrotulos) 

773 REM se extrae un caracter del rotulo 

774 chars=MID$(yrotulos,con, 1) 

775 REM ponerse convenientemente a la izquierda 
para imprimir sl caracter 

776 MOVE -charancho* (maxycadena+2) , yrotulocon=ch 
aralto*(con=1) 


para obtener e 


THEN numeros=M 


+numeros 
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778 PRINT chart) 

780 NEXT 

770 RETURN 

799 REM leer puntos del data y dibujar las barra 


800 DIM y(numerodebarras) 
806 READ tintaM,tintal 
807 INK O,tintad 

808 INK 1,tintal 


815 READ y 

B16 xtcon)=xdib 

819 REM altura de la barra calculada a la esc 
ala conveniente 

820 ytcon)=(y=miny) /puntoy 

825 NEXT 

829 REM reducir la anchura de las barras para de 
jar espacio entre ellas 

B30 barraancho=xancho-4 

B40 FOR con=1 TO numerodebarras 

850 MOVE 0,2 

860 DRAWR D,y (con), 1 

870 DRAWR barraancho, Q 

880 DRAWR 0, -y (con) 

890 ox=oxtxancho 

899 REM desplazamiento del origen para dibujar 1 
a barra siguiente 

708 ORIGIN ox, oy 

910 NEXT 

778 RETURN 

999 REM ahora solo se necesita la altura de las 
barras; la anchura es fija 

1000 DATA 19,0,24,350,190,750,440,990,124,846,54 
5,666,222 k 


La subrutina 800 dibuja cada barra mediante una seric de movimiento 
referidos al origen. Desplazando este origen una distancia fija cada ve 
que se dibuja una barra, se puede utilizar un bucle para dibujar todas la 
barras. 

El dibujo queda mejor si se rellenan las barras con diferentes colores 
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Lamentablemente, el Amstrad CPC664 ' no tiene un comando que relle- 
ne con un color un área determinada, Hay que rellenar las barras dibu- 
jando líneas sencillas de la manera más rápida posible. En el último capí- 
tulo veremos algunos procedimientos para acelerar un programa, pero ya 
podemos emplear aquí algunos de esos conocimientos: 


830 barraancho=xancho=4 
835 color=2 

840 FOR con=1 TO numerodebarras 

844 REM se alterna el color de las barras 

845 IF color=3 THEN color=2 ELSE color=3 

848 REM las barras se rellenan mas rapidamente t 
omando un paso 

849 REM adecuado a la resolucion del modo de pan 
talla, para no repetir lineas 

850 FOR barra=0 TO barraancho STEP charancho/8 
860 MOVE Orbarra,0 

970 DRAWR DB, y (con) ¿color 

880 NEXT 

890 ox=oxtxancho 

899 REM desplazamiento del origen para dibujar 1 
a siguiente barra 

900 ORIGIN ox,oy 

910 NEXT 

990 RETURN 


Las líneas se dibujan verticalmente en lugar de horizontalmente, ya que 
muchas barras scrán más altas que anchas y se reduce así el número de 
líneas a dibujar. Pero rellenados de color realmente rápidos sólo pueden 
realizarse con rutinas en código de máquina. 

Se obtiene una interesante variación sobre los diagramas de barras di- 
bujando éstas con aspecto sólido, lo que da a la figura un aire tridimen- 
sional: 


830 barraancho=ancho-4 

B31 REM barralado es la ancura del lateral de la 
barra 

932 REM barrasuple es la altura suplementaria de 
la parte trasera de la barra sobre la delantera 


Los modelos posteriores incluyes la orden FILL (“rellena 
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833 REM modifique los valores segun quiera que a 
parezcan mas O menos profundas 

834 barralado=barraancho/A:barrasuple=barralado 
835 color 
940 FOR con=1 TO numerodebarras 

E44 REM se alterna el color de las barras 
845 IF color=3 THEN color=2 ELSE color=3 
846 barrasuplecor 
848 REM tambien hay que rellenar el lateral de 1 
a barra 

849 REM luego el ancho de la barra es barraancho 
+barralado 
850 FOR barras 
rancho/8 

859 REM el fin de la linea se dibuja en otro col 
or cono ocurrira con todas las aristas de la bar 


TO barraancho+barralaco STEP cha 


ra 
860 PLOT Owbarra, 0, 1 
B69 REM la linea hasta arriba de la barra 


870 DRAWR 0, y(con)+barrasuplecon, color 
871 REM el otro final de la linea tambien en col 
or diferente 

972 PLOTR 0,0,1 

873 REM la linea siguiente debe ser un poco mas 
alta 

874 REM y asi hasta alcanzar la parte de atras d 
e la barra 

975 barrasuplecon=barrasuplecon+charancho/B: IF b 
arrasuplecon>barrasuple THEN barrasuplecon=barto 
Pp 

880 NEXT 

881 REM las aristas de la barra van en otro colo 
882 
883 
884 DRAWR barraancho, 0 

885 DRAWR 0,-y 

886 MOVER B,y 

887 DRAWR barralado,barrasuple 

888 DRAWR 0,-y-barrasuple 

890 ox=ox rancho 

899 REM desplazamiento del origen para dibujar 1 
a siguiente barra 
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900 ORIGIN 0x,oy 
910 NEXT 
990 RETURN 


Ejercicios 


1. Modifique el programa para que funcione correctamente en modo 0 
y en modo 2. 

2. Modifique el programa para que las barras del diagrama sean horizon- 
tales en lugar de verticales. 

3. Cambie el diagrama en 3D para que se pueda representar una sucesión 
de diagramas, cada uno al lado del anterior. 


DIAGRAMAS DE SECTORES 


La realización de un diagrama de sectores (o sea, un histograma consis- 
tente en un círculo o un pequeño cilindro dividido en sectores de tamaño 
proporcional a la magnitud de los datos) tiene poco en común con el dibu- 
jo de gráficas y de diagramas de barras. Por eso vamos a diseñar un pro- 
grama completamente nuevo, aunque conservando algunas características 
generales de los anteriores, como el empleo sistemático de variables y su- 
brutinas. Para este diseño es importante la resolución, puesto que necesi- 
tamos dibujar una circunferencia con bastante exactitud. Pero también 
lo es el color, así que vamos a tomar una decisión de compromiso y a ele- 
gir el modo 1. 

El programa siguiente construye uno de estos diagramas, dividiendo un 
círculo en sectores de tamaño adecuado, cada uno con su contorno colo- 
reado: 


10 MODE 1 
20 GOSUB 1009 

30 GOSUB 2000 

40 GOSUB 3000 

50 END 

997 PREM leer del DATA las coordenadas del centro 
y el radio 

1000 READ centrox,centroy 

1010 READ radio 

1020 READ numdeval 

1030 DIM valor (numdeval) , angulo (numdeval) 


70 TÍCNICAS DI PROGRAMACIÓN DE GRÁFICOS EN EL AMSTRAD 


039 REM sumar todos los valores para calcular 1 
as divisiones del circulo 

1040 totalvalor 
1050 FOR con=1 TO rundeval 

1069 READ valor (com) 

1070 totalvalor=totalvalor+valor (con) 

1080 NEXT 

1098 RETURN 

1100 DATA 200,200,128,4,1,2,3,4 

1999 REM calculo del angulo de cada sector 
2000 FOR CON=1 TO numdeval 

2210 angulo(con)=2ePI*valor (con) /totalvalor 
2020 NEXT 

2030 RETURN 

3000 REM cambiaremos esto enseguida 

3212 somangulo=Q 


3022 incremento=P1/60 


1230 colo 
3039 REM para modo Q hacer numdecol=15 ísin cont 
ar el color del fondo) 

3240 numdecol=3 

3058 FOR con=1 TO nundeval 

3057 REM angulo en que termina el sector 

3060 finangulo=comangulorangulo (con) 

3049 REM color del sector 

3070 color=1+(color+1)MOD numdecol 

3077 REM asegurarse de que el primero y el ultim 
o sector son ds coloros diferentes 

3080 1F con=numdeval AND nundeval MOD numdecol=1 
THEN colorsi+(color+1)MOD numdecol 

3090 MOVE centrox,centroy:DRAW centrox+radiowSIN 
(comangul o) ,centroy+radio*c0S (comangulo) color 
3099 REM dibujo del sector 

3100 FOR angulo=comangulo TO finangulo STEP incr 
emento 

3110 DRAW centroxtradio*SIN(angulo),centroy+radi 
exCOS (angulo) 

3120 NEXT 

3129 REM angulo de comienzo del nuevo sector 
3:30 comangulo=finangulo 

3140 NEXT 

3158 RETURN 
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La subrutina 1000 lee de líneas DATA los valores que hay que representar 
y calcula su suma. La proporción entre un valor y la suma total es lo que 
da el ángulo que ocupa el correspondiente sector; este ángulo se calcula 
con la rutina 2000. La rutina 3000 dibuja cada sector con su color. 

Al ejecutar el programa verá que, si el radio del diagrama es grande, 
el dibujo eslento. Algo se puede ganar en velocidad si se toma como nue: 
vo origen el centro del círculo: 


3000 ORIGIN centrox,centroy 
3090 MOVE 0,0:DRAW radio*SIN(comangulo),radio*CO 
S(comangulo) color. 

3099 REM didujo del sector 

3109 FOR angulo=comangulo TO finangulo STEP incr 
emento 

3110 DRAW radio*SIN(angulo),radio*cos (angulo) 
3120 NEXT 


Los cálculos más largos son, no obstante, los de los senos y cosenos, y 
esto, a diferencia de lo que ocurre con otros cálculos, no se puede mejorar 
con el empleo de números enteros. Vamos a modificar algunas cosas pa- 
ra minimizar estos cálculos; la idea puede servir para objetivos distintos 
del que nos ocupa. Ahora sólo se calcula un seno y un coseno: 


2000 
2005 1 TO numdeval 

2010 angulo(con)=radvalivalor (con)/totalvalor 
2020 NEXT 

2030 RETURN 

3009 ORIGIN centrox, centroy 

3009 REM al emplear enteros en el bucle aumenta 
la velocidad 

3018 DEFINT e s 

3030 color=1 

3035 elseno=SIN(2xPI/radval)+elcoseno=C0S (24P1/r 
adval) 

3037 xi=radio:y1=0 

3039 REM para modo 2 hacer nundecol=15 (sin cont 
ar el color del fondo) 

3040 numdecol=3 

3050 FOR con=1 TO numdeval 

3069 REM color del sector 

3070 color=1+(color+1)M0D numdecol 
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3079 REM asegurarse de que el primero y el ultim 
o sector son de colores diferentes 

3080 1F consnumdeval AND numdeval MOD numdecol=1 
THEN color=1+(color+1)MOD numdecol 

3090 REM 

3099 REM dibujo del sector 

3100 FOR coni=1 TO angulo(con) 

3110 x=x1*elcoseno-y1*el seno 

3112 y=x1*elsenoty1*el coseno 

3114 PLOT x,y,scolor 

3L16 xix: yl=y 


3120 NEXT 
3129 REM trazar la linea hasta el centro para es 
te sector 

3138 MOVE Q,B:DRAM x,y 

3140 NEXT 


3150 RETURN 


Estos diagramas de sectores son más expresivos cuando los sectores se re- 
llenan de color; la forma más sencilla de hacerlo es dibujar radios de colo- 
res. Para ello, se puede modificar el programa que teníamos al principio 
con las líneas que siguen: 


3020 incremento=P1/500 
3109 REM esta vez se dibujan lineas desde el cen 
tro 

3110 MOVE 0, 
ngulo) 


RAW radio*sINtangulo),radiox*cos (a 


Ahora es incluso más lento, pero hay que darse cuenta de que, si no se 
juntan mucho los radios, hay puntos que quedan sin tocar y permanecen 
del color del fondo. Una idea para dar más velocidad sería colorear sólo 
uno de cada dos sectores, dejando los otros del color del fondo. Se gana- 
ra aún más tiempo si se elige cuidadosamente el orden de los sectores para 
que los que se rellenan sean los más pequeños. Entre otros defectos, esta 
solución tiene el incoveniente de que obliga a rotular los sectores para que 
el diagrama no sea confuso. 

Se puede aumentar la rapidez del programa teniendo almacenadas las 
coordenadas delos puntos de la circunferencia en un par de vectores, para 
no tener que calcularlos en el momento de realizar el diagrama. Siel pro- 
grama está escaso de memoria es una mala solución, ya que se requieren 
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dos vectores bastante largos. Ésta es la solución que adoptamos con el 
siguiente programa alternativo: 


10 
20 
30 
40 
so 


MODE 1 
6OsuB 1000 
6OSUB 2000 
SOSUE 3200 
END 


999 REM muchas variables pueden ser enteras - es 


to 


aumenta la velocidad 


1000 DEFINT a,cyn) rv 
1005 READ centrox,centroy 

1010 READ radio 

1020 READ numdeval 

1030 DIM valor (numdeval), angulo (nundeval) 

1039 REM sumar todos los valores para calcular 1 


as 


divisiones del circulo 


1040 totalvalor=0 
1050 FOR con=! TO numdeval 
1068 READ valor (con) 


1070 totalvalor 


otalvalor+valor (con) 


1088 NEXT 
1099 RETURN 
1100 DATA 200,200,120,4,1,2,3,4 


1998 REM radval intluye en 


jo 


velocidad del diíbu 
ellenado 


y en la densidad del 


1999 REM si se toma radio*3 nejora la velocidad 
aunque quedan puntos sin rellenar 

2008 radval=radioxta 

2001 totangulo=0 

2005 FOR con=1 TO nundeval 


2010 angulo(con) 
2015 totangulo: 


adval*valor (con) /totalvalor 
=totangulorangulo (con) 


2020 NEXT 
2030 RETURN 

3000 ORIGIN centrox,centroy 

3018 DEFINT e 

3020 contangulo=0 

3030 color=1 

3033 REM solo se necesita calcular un seno' y un 
coseno por este metodo 
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3034 REM esto da mas velocidad 

3035 el seno=SIN(24PI/radval):elcosenosCOS (24P1/r 
adval) 

3036 xi=radio:y1=0 

3037 REM calculo de las coordenadas de los punto 
s de la circunferencia 

3038 LOCATE 5,10:PRINT "espere, por favor 
4000: CLE 

3039 REM para modo 0 hacer numdecol=15 (sin cont 
ar el color del fondo) 

3040 numdecol=3 

3050 FOR con=1 TO numdeval 

3069 REM color del sector 

3078 color=1+(color+11M0D nundecol 

3079 REM asegurarse de que el primero y el ultim 
O sector son de colores diferentes 

3080 1F con=nundeval AND numdeval MOD numdecol=1 
THEN color=1+tcolor+1)MOD numdecol 

3099 REM 

3099 REM dibujo del sector 

3100 FOR coni=contangulo TO contangulotangulo(co 
m 

3114 MOVE 0,0:DRAW x(coni) ,y(coni),color 

3128 NEXT 

3124 REM posicion inicial del siguiente sector 
3125 contengulo=contangulo+angulo (con) 

3140 NEXT 

3150 RETURN 

3997 REM normalmente convendra realizar este cal 
culo en los programas largos 

3998 REM en algun momento del programa en el que 
la espera 

3999 REM no resulte excesivamente larga 

4000 DIM x (totangulo),y (totangulo) 

ag10 FOR con=1 TO totangulo 

4020 y="1*el coseno-y1*elseno 

4030 y=x1*elseno+y1*elcoseno 

4040 »(con)=x 

AQ58 y (con)=y 

ADGD ul=xs y! 
4070 NEXT 
4080 RETURN 


'OSUB 
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Observará que es difícil rellenar completamente una superficie con un 
color. La única forma de hacerlo bien es dibujar uno por uno los puntos 
individuales, como veremos en el capítulo siguiente. 


Ejercicios 


1. Modifique el programa que dibuja diagramas de sectores de forma que 
además los rotule. 

2. Modifique el programa para que dibuje en la pantalla varios diagra- 
mas de sectores con el mismo radio. (Aquí sí que es importante alma- 
cenar las coordenadas de la circunferencia en dos vectores, para no 
calcular varias veces los mismos datos.) 

3. Escriba un programa que dibuje diagramas de sectores sucesivos, unos 
encima de otros, con los sectores rellenos de color. 


4 


Formas y dibujos 


En el capítulo 1 hemos visto que es muy fácil realizar figuras geométricas con 
sólo los comandos MOVE y DRAW: 


10 MODE 4 
20 x=320:y=200 

28 REM maximo da la longitud de los brazos de la 
figura 

REM pruebe cambiando maximo y paso 
maximo=200 

pasos! 
FOR con=0 TO maximo STEP paso 
MOVE x-con, y 

DRAW xy + (maximo-con) 

DRAW x+cen, y 

DRAN x, y- (maximo-con) 

100 DRAW x-con, y 

110 NEXT 


3835858% 


En las clases de geometría para niños se hacen muchas figuras de este estilo. 
Se producen algunos efectos bastante espectaculares tomando una serie de 
puntos y uniéndolos “todos con todos” mediante rectas. El siguiente progra- 
"ma construye un polígono con el número de lados que se desee y después une 
cada vértice con todos los demás: 


18 MODE 1 
20 radio=150 

30 y=320:y=200 

40 INPUT"Cuantos lados tiene la figura";lados 
50 CLs 


40 paso=2*P1/1ados 
70 DIM «(lados),y(lados) 
80 con=0 
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90 ORIGIN x,y 

100 MOYE O,radio 

110 FOR angulo=0 TO 2«P1 STEP paso 

120 DRAW radio*SIN(angulo),radioxCOS (angulo) 
130 x (con)=radio*SIN (angulo): y (con) sradioxCOS (an 
gula) 

140 con=con+1 

150 NEXT 

155 DRAM O,radio 

160 FOR coni=1 TO lados-1 

170 FOR con2=con1+1 TO lados 

180 MOVE x(con1),y(coni) 

190 DRAM x(conZ2),y(con2) 

200 NEXT 

218 NEXT 


Figura 4.1. Ejemplo de curva formada uniendo puntos, 
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Queda mucho mejor si se dibuja con colores: 


195 color=l:DRAW W,radin,color 
160 FOR coni=1 TO lados-1 

170 FOR con2=coni+1 TO lados 

173 REM experimente con los colores en la linea 
175 

174 REM cambie el MOD para ver el efecto 

175 color=1+(color+1) MOD 3 

180 NOVE xtcon1),y(con1) 

198 DRAW x(con2),y(conZ2),color 

200 NEXT 

210 NEXT 


En cste capítulo vamos a ver cómo se pueden producir figuras mucho mi 
elaboradas. Muchas de ellas están basadas en el uso de las funciones sen 
y coseno. Pero no se preocupe por las matemáticas: los programas está 
completamente escritos, aunque proporcionan muchas oportunidades pi 
ra que usted dé otros valores a ciertas variables para estudiar lo qu 
ocurre. 


Tejidos de colores 


Con el comando ORIGIN y con los desplazamientos relativos es fácil di 
bujar figuras con simetría. El siguiente programa coloca el origen en y 
centro de la pantalla y crca una figura uniendo puntos del nuevo eje ] 
con puntos de la parte superior y de la parte inferior de la pantalla. L 
coordenada X se multiplica por un factor que hace que las líneas conver 
jan o diverjan: 


10 MODE 1 
19 REM se usan numeros enteros para mayor veloci 
dad 


20 DEFINT c,f,x,y 

30 xorigen=320; yorigen=200 

39 REM cambie estos factores para obtener difere 
ntes efectos 

40 factor actor2=1 

50 factord=factori-factor2 

60 ORIGIN xorigen, yorigen 
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69 REM el bucle dibuja cuatro rectas simetricas 
de posicion variable 

70 FOR con=0 TO 200 

80 MOVE 0,0:MOVER con*factor1,0 
90 DRAWR —con*factord,200 

100 MOVER -con*factor242,0 

110 DRAWR —con*factord, -209 

120 DRAWR con*factord,-200 

130 MOVER consfactor2*2,0 

140 DRAWR con*factord,200 

150 NEXT 


Observe que el DEFINT de la línea 20 está puesto para dar rapidez al pro- 
grama. No siempre será posible trabajar con variables enteras a causa de 
los senos y cosenos, que dan siempre decimales. 

Los factores de la línea 40 se pueden cambiar, pero conviene evitar que 
sean mayores de 15, pues entonces las líneas se separan excesivamente. 
Las sorprendentes formas que surgen en el dibujo provienen de que cier- 
tos puntos quedan del color del fondo y también de los puntos en que las 
líneas se superponen. Experimente con factores diferentes y ejecute el 
programa en otros modos de pantalla. Obtendrá una bonita alfombra 
añadiendo estas líneas: 


35 colori 


color2=1 
70 FOR con=8 TO 200 
80 MOVE 0,D:MOVER con*factor1,Q 


90 DRAWR —con*factord, 208, colori 
109 MOVER -con*factor2*2,0 

110 DRAWR -con*factord,-280,color2 

120 DRAWR consfactord,-200,colori 

138 MOVER con*factor22,0 

140 DRANR con*factord,200,color2 

150 colori=i+(colori+1) MOD 4: color2=1+(color2+ 
1) MOD 4 

160 NEXT 


La línea 150 hace que las rectas se dibujen usando cíclicamente los colores 
del modo 1. La sentencia MOD sirve para dar el resto dela división; por 
ejemplo, $ MOD 4 es 1. Además, se suma un 1 para garantizar que el 
resultado no da el color del fondo; de otra manera, como 4 MOD 4=0. 
se obtendrían rectas que no contrastarían con el fondo. Las líneas 35 y 
150 hacen que el aspecto final sea de un cálido color naranja. Las tintas 
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que se usan en las sentencias DRAWR son 1 (amarilla) y 3 (roja). De lo 
apretadas que resulten las líneas (lo que depende de los factores de la línea 
40) depende que el color quede naranja o a rayas rojas y amarillas. 

“Ajustando los valores de color1 y color2 y cambiando MOD 4 en la 
línea 150 por MOD 2 0 MOD 3, se obtiene cierta variedad de efectos: fi- 
guras con cuadrantes opuestos en diferentes colores o compuestos única- 
mente de ciertos colores. Al ejecutar el programa en los otros modos 
cambian completamente los resultados, salvo que se ajusten los colores 
utilizados. 


Figuras de Lissajous 


Las figuras de Lissajous se obtienen utilizando una idea de la que ya nos 
servimos para dibujar una circunferencia. Entonces manteníamos cons- 
tante el radio y tomábamos cl seno y el coseno del mismo ángulo para 
construir un punto de la circunferencia. Variando este ángulo se obtienen 
figuras diversas: 


10 MODE 1 
20 xorigen=3201 yorigar 
30 ORIGIN xorigen, yorigen 

40 MOVER 100,0 

50 FOR angulo=2 TO 32 STEP P1/30 

50 DRAW 100+COS (angulo), 1004SIN (angulo*D. 8) 
70 NEXT 


Una alternativa puede ser unir con rectas los puntos de dos de estas 
curvas: 


10 MODE 1 
20 xorigen=320: yorigen=200 

30 ORIGIN xorigen, yorigen 

40 MOVER 100,0 

50 FOR angulo=0 TO 6.4 STEP PI/35 

55 MOVE 200*SIN (angulo) , 19BCOS (angulo) 
60 DRAW 100«COS (angulo) ,220*SIN (angulo) 
70 NEXT 


O bien este otro ejemplo: 
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MODE 1 
xorigen=320: yor igen=200 

ORIGIN xorigen, yorigen 

FOR angulo=0 TO 6.4 STEP P1/35 

MOVE 3B0XSIN (angulo) , SQXCOS (angulo) 
DRAW 10*C0S (angulo/5),200*SIN (angulox2) 
NEXT 


O también con color: 


10 
20 
30 
40 
se 
53 
55 
7 
A 

7 


MODE 1 
xorigen=320: yorigen=200 

ORIGIN xorigen,yorigen 

color=1 

FOR angulo=8 TO 20 STEP PI/30 

IF angulo»10 THEN color=3 

MOVE 200+SIN (angulo), 200+COS (angulo) 

DRAW 190*C0S (angulo*3),200*SIN(angulo/3),colo 


NEXT 


Como en otras ocasiones, puede ensayar utilizando otros modos. El em- 
pleo del seno y del coseno para producir este tipo de dibujos son la conse- 
cuencia de bastantes experimentos, aunque al principio los resultados pa- 
rezcan impredecibles. Sin embargo, pronto se aficionará a experimentar 
con el cambio de las variables o a investigar con otras funciones, como 
los cuadrados de senos y cosenos o sus productos por otros factores. 


Podemos crear una espiral utilizando nuestro programa de dibujar cir- 


cunferencias pero haciendo que el radio cambie constantement 


10 
20 


MODE 4 
BOSUB 1000 


100 END 
1000 xorigen=315:yorigen=198 

1010 ORIGIN xorigen, yorigen 

1020 color=1 

1029 REM valor del incremento del radio de la es 
piral cada vez que se dibuja un nuevo punto 
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1030 radioincrenento=0.5 
1040 paso=P1/30 

1048 REM angulofinal deternina las vueltas que dl 
ara la espiral 

1049 REM un valor excesivo hace que se salga de 

la pantalla 

1050 angulofínal=40 

1059 REM se comienza con radio 1 

1060 radiocom=1 

1079 GOSUE 2000 

1900 RETURN 

2009 MOVE 0,0 

2010 FOR angulo=9 TO angulcfinal STEP paso 

2020 DRAW radiocom*SIN(angulo) ,radiocom*COStangu 
10),color 

2030 radiocom=radiocontradioincramento 

2040 NEXT 

2050 RETURN 


Añadiendo algunas líneas podemos hacer que se dibujen unas espirales 
dentro de otras: 


REM otra espiral en el interior de la anter 
esta comienza con radio 10 

radiocon=10 

1098 GOSUB 2000 

1099 REM ultima espiral en el interior de la ant 
eríor; esta comienza con radio 20 

1108 radiocom=20 

1110 cosuB 2000 


La espiral puede animarse de un aparente movimiento de rotación dibu- 
jando los puntos de diferentes colores y poniendo tintas intermitentes en- 
tre un color y el del fondo: 


10 MODE 1 
20 GosuB 1000 

28 REM tintas que parpadeen entre dos colores 
29 REM con alternancia entre ambas 

30 INK 1,1,20 

40 INK 2,20,1 

50 respuestas 
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50 WHILE respuestas: 
70 respuestat=INCEYe 

80 WEND 

90 INK 1,24: INKk 2,20 

100 END 

1053 REM ahora las dos tíntas son iguales 

1054 REM al dar el mismo color a la tinta 1 que 
a la tínta 2 

1055 INKk 1,20 

2014 REM las lineas se dibujan alternando las do 
s tintas 

2015 IF color=1 THEN color= 


ELSE color=1 


Es un técnica usual que volveremos a ver. 


Figuras repetitivas 


Muchos dibujos, como los habituales en los papeles pintados para las pa- 
redes, se obtienen mediante la simple repetición de una figura: 


10 MODE 1 
20 GOSUB 1000 

40 END 

778 REN datos para un octogono 

999 REM pruebe con otras figuras 

1000 xcom=0:ycom=0 

1001 REM xcom,ycom forman el centro del primer p 
olígono 

1010 radio=49 

1020 
1030 
1049 
1050 GOSUB 3000 

1048 RETURN 

2978 REM se rellena la pantalla con copias del p 
oligono 

2997 REM se detiene cuando las coordenadas del € 
entro se salen de la pantalla 

3000 centrow=«com:centroy=ycom 

3010 WHILE centroxc639 OR centroy<399 

3020 ORIGIN centrox,centroy 
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3030 MOVE O,radio 
3040 FOR angulo=0 TO 2«P1 STEP paso 

3050 DRAW radio*SIN(angulo),radio*COS (angulo), ca 
lor 

3060 NEXT 

3069 REM desplazamiento en la direccion de la x 
3070 centroy=centroxtradiox2 

3079 REM si se sale de la pantalla se recomienza 
mas arriba 

3000 1F centroxd639 AND centroyc399 THEN centrox 
=xcomscentroy=centroytradiox2 

3098 WEND 

3100 RETURN 


Se logran resultados más elaborados superponiendo un segundo conjunto 
de figuras al primero. Esto se puede hacer con figuras distintas o con fi- 
guras iguales pero de diferente tamaño: 


30 GOSUB 2000 
1999 REM datos para un hexagono 
2000 :com=40: ycon=40 

2010 radio="0 

2020 lados=6 

2030 paso=24P1/lados 

2040 color=2 

2050 GOSUB 3000 

2060 RETURN 


Las filas se pueden poner escalonadas comenzándolas en una de dos posi- 
ciones alternativas: 


3079 REM si se ssle de la pantalla se recomienza 
mas arriba 

3080 IF centrox>629 AND centroy<399 THEN GOSUB 4 
00R 

3090 WEND 

3100 RETURN 

3999 REM se escalona el comienzo de cada fila de 
poligonos 

4000 IF xcon=0 THEN «comsradio ELSE xcom=0 

4010 centrox=xcos:centroyscentroytradioxz 

4020 RETURN 
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Rotación de una figura 


Es fácil modificar el programa de dibujar circunferencia para que dibuje 
polígonos. El programa así construido puede ser incorporado como su- 
brutina en un programa que vaya alargando y rotando una figura, de ma- 
nera que proporcione un dibujo en espiral: 


18 MODE 1 

20 GOSUB 1000 

38 GOSUB 1500 

40 END 

999 REM lectura de los datos del poligono 
1000 READ lados 

1010 READ radio 

1020 READ centrox,centroy 

1030 READ radiocambio, angulocambio 

1040 color 
1050 paso=2*P1/lados 

1060 angulocom=0: angulofin=2*P1 

1078 RETURN 

1500 ORIGIN centrox,centroy 

1508 REM no se dibuja el poligono cuando se hace 
demasiado grande 

1509 REM lo que significa radio)200 para los pol 
igonos de los DATA 

1510 WHILE radio200 

1520 MOVE radio*SIN(angulocom ,radio*COS (anguloc 
om 

1530 FOR angulo=angulocom TO angulofín STEP paso 
1548 DRAW radiexsINtangulo),radioxCOs (angulo), co 
lor 

1550 NEXT 

1560 DRAW radiorSINtangulocom) ¿radiorG0S (angulos 
am 

1569 REM se incrementa el radio 

1570 radio=radiotradiocambio 

1577 REM se gira el siguiente poligono para que 
forme angulo con el anterior 


1580 angulocom=angulocomtangulocambio 
1590 angulofin=angulofin+angulocambio 
1600 WEND 

1610 RETURN 
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2000 
2010 
2020 
2030 
2040 
2050 
2060 


Ejecute el programa tal como está. Los DATA de la línea 2000 y siguien- 
tes proporcionan datos para varias figuras diferentes. Borre luego el pri- 
mer DATA y vuelva a ejecutarlo, y así repetidamente hasta agotar los 
ejemplos. De esta forma irá viendo el efecto que produce el cambio de 
número de lados del polígono y de los coeficientes de alargamiento y de 


rotación. 


Figura 4.2. Tipo de figura que se obtiene por rotación de una forma básica. 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


3,20,300,200,5,1 
3,20, 300,200, 3, 10 
4,50, 300,200, 4,3 
6,20,380, 200,1, 6 
6,20, 300, 200,6, 1 
8,10,300,200,5,10 
8,10,300,280,5,2 
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Con el uso juicioso del color se pueden lograr efectos llamativos: 


10 MODE 1 

20 GOSUB 1000 

27 REM las tintas 2 y 3 sol interminentes y alte 
rnadas entre si 

30 GOSUB 1508 

40 INK 2,1,20 

50 INK 3,20,1 

37 REM se espera la pulsacióon de una tecla 
60 respuestas= 

70 WHILE respuestas="" 

80 respuestaS=INKEYS 

90 WEND 

99 REM tintas normales 

100, INK 2,20 

110 INK 3,6 

120 END 

1504 REM tinta 3 igual ala 2 

1505 INKk 3,20 

1594 REM los poligonos se dibujan alternativamen 
te con una y otra tinta 

1595 IF color=2 THEN color=3 ELSE color=2 


AL terminar de dibujar la figura, el programa produce un sorprendente 
efecto por la intermitencia entre el color del fondo y el otro color. 


Ejercicios 


d: 


2. 


Escriba una nueva versión del programa que une los vértices de un po- 
lígono de manera que dibuje dos polígonos y una sus vértices. 
Investigue el efecto que producen en el programa de los tejidos de co- 
lores los cambios siguientes: otro paso distinto en el bucle FOR. . NEXT; 
dibujar sobre la primera figura otra con factores y colores diferentes; 
desplazar el origen para crear una superficie llena de las mismas 
figuras. 

Modifique el programa de rotación de polígonos para que el número 
de lados del polígono varíe a lo largo del programa. Vaya alternando, 
por ejemplo, entre un triángulo y un pentágono; o bien entre todos los 
polígonos, aumentando un lado en cada rotación hasta que haya 20 la- 
dos y recomenzando de nuevo. 
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DIBUJO INTERACTIVO EN LA PANTALLA 


Además de hacer que el ordenador construya figuras más o menos geomé- 
tricas, también se puede conseguir que ayude al usuario para que sea él 
mismo el que diseñe una figura sobre la pantalla; a esto vamos a dedicar 
el resto del capítulo. Para que los programas puedan ser utilizados por 
la totalidad de los usuarios, los hemos diseñado para que funcionen em- 
pleando el teclado, pero es fácil hacer las pequeñas modificaciones que 
se requieren para utilizar los mandos de juego (“Joysticks”). Utilizare- 
mos el modo O de pantalla para proporcionar mayor variedad de colores. 

El primero delos programas proporciona la herramienta más elemental 
para dibujar sobre la pantalla. Permite dibujar puntos que vayan for- 
mando líneas de la dirección deseada: 


10 MODE O 
20 x=320: y=208 

30 color=1 

40 MOVE x,y 

50 PLOT x,yscolor 

$0 GOSUB 1000 

70 END 

957 REM examen del teclado - fin cúando se pulsa 
la tecla e” 

1000 WHILE respuestat<>"e" 

1010 respuesta$=INCEYS 

1019 REM comandos para dibujar la linea: arriba/ 
abajo=a/z , izquierda/derechas,/. 

1020 IF respuestat="a" THEN y=y+2 

1030 1F respuestat="=" THEN y=y-2 

1040 1F respuesta: 
1050 IF respuestas 
1060 PLOT x,y,color 
1070 WEND 

1080 RETURN 


El primer punto se dibuja en las coordenadas de la línea 20. Luego, el 
programa espera que se pulse una tecla para avanzar hasta otro punto. 
Las direcciones de avance se controlan con las teclas siguientes: “a* para 
arriba, *z' para abajo, *, para izquierda y “.? para derecha. El programa 
actualiza las coordenadas en función de la tecla pulsada y dibuja el punto. 

Es fácil añadir otros comandos a esta estructura básica. Aunque el mo- 
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vimiento está por el momento limitado alas cuatro direcciones cardinales, 
se pueden programar avances en diagonal añadiendo líneas a partir de la 
1050. 

Tal como está, el programa dibuja líneas continuas, y no es posible pa- 
sar de una posición a otra separada de ella sin trazar una línea. Podemos 
añadir como opción que el color del punto pueda ser tanto el de dibujo 
como el del fondo: 


1051 1F respuesta$="d" THEN color 
1082 IF respuestas="" THEN color=0 


Pero si se ha seleccionado el color del fondo no se verá el dibujo de los 
puntos y no sabremos dónde estamos dibujando. Esto puede arreglarse 
dibujando dos veces el punto; la primera en un color que se vea, y la se- 
gunda en su color definitivo: 


35 colorvisibl 
1005 PLOT x,y,color 
1860 PLOT x,y,colorvisible 


Si el color que se selecciona es el del fondo, el punto quedará intermitente 
entre los dos colores, actuando como un cursor que nos indica por dónde 
vamos. 

También se puede dar la opción de seleccionar el color del dibujo, bien 
directamente con varias teclas, bien empleando una sóla tecla para reco- 
rrer un ciclo de colores de la misma forma que hicimos en programas an- 
teriores: 


1093 1F respuestas="c" THEN color=1+(color+1) MO 
D3 

De esta manera, tenemos una elección entre tres colores que se distinguen 
perfectamente del color del fondo. 

A veces, será difícil dibujar con exactitud rectángulos y otras figuras 
parecidas empleando la vista como único sistema de medir distancias, Po- 
demos hacer que nos vaya apareciendo una información numérica en la 
pantalla. Esto nos da una disculpa para presentar el comando WINDOW 
(window es ventana), que podemos emplear para hacer que todo lo que 
sea texto aparezca en una zona determinada de la pantalla: 


15 WINDON 1,40,24,25 
16 PRINT. "Colors " 
17 PRINT "xa y 
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Los cuatro números que siguen a WINDOW especifican primero la coor 
denada X de los bordes izquierdo y derecho de la ventana, y luego la coor 
denada Y de los bordes superior e inferior. En muestro caso, la ventam 
para el texto ocupará las dos últimas líneas de la pantalla: 


1051 1F respuesta$="d" THEN color=colorvisible 
1052 1F respuestas="f" THEN colorvisible=colorse 
olor=g 

1053 JF respuesta$="c" THEN color=1+(color+1) MO 
D3 


1868 PLOT x,y,colorvisible 
1065 GOSUB 2000 

1070 WEND 

1080 RETURN 

2000 1F colorviejo<>color THEN LOCATE 9,1:PRINT 
color 

2010 1F «viejo<)x THEN LOCATE 4,2:PRINT x3 

2020 1F yviejo<>y THEN LOCATE 12,2:PRINT y; 
2030 colorviejo=color 

2040 xviejosxtyviejo=y 

2058 RETURN 


Ahora podremos realizar nuestros cálculos con mayor exactitud, pues el 
programa nos da una información que mantiene siempre actualizada so- 
bre el color y las coordenadas del punto. Observe que el Amstrad consi- 
dera también la ventana de texto como parte de la pantalla gráfica; lo po- 
drá comprobar llevando su dibujo hacia esa zona. 

Hay aún muchos defectos en el programa. Las líneas sólo se pueden 
borrar dibujando sobre ellas con el color del fondo. Por otra parte, si 
se cruza sobre una línea al ir dibujando con el color del fondo, se borrará 
el punto de intersección. A pesar de que esto pueda parecer un problema 
sin solución, tiene una muy sencilla, aunque para ponerla en práctica va- 
mos a tener que utilizar nuestros conocimientos sobre los números 
binarios. 


Ejercicios 


1. El programa anterior no se preocupa de si los puntos se salen de la 
pantalla. Haga una modificación para que el programa impida salirse 
de la pantalla o dibujar sobre la ventana de texto. 
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2. Aumente la posibilidad de elegir colores hasta 16. Utilice el comando 
1NK para clegir los 16 que más convengan de entre los 27 posibles, en 
lugar de utilizar los que vienen dados por defecto. 

3. Añada los comandos necesarios para que se pueda dibujar en dia- 
gonal. 


La opción XOR 


Ahora podremos comprobar el interés de los comentarios que hicimos en 
el primer capítulo acerca de los sistemas binario y hexadecimal, ya que 
son conceptos importantes cuando se trata de las operaciones gráficas. 

Conviene recordar que la pantalla es la representación externa de una 
parte de la memoria del ordenador. Los caracteres que aparecen o las lí- 
neas que están dibujadas son el resultado de la forma en que se almacenan 
valores binarios en dicha zona de memoria, que es la que el Amstrad exa- 
mina para construir la configuración de la pantalla. 

El dibujo de una línea hace que los bytes (los grupos de 8 bits) cambien 
en la parte de memoria que corresponda. El valor de una posición de me- 
moria es lo que determina si un punto de la pantalla está encendido o apa- 
gado y, si está encendido, de qué color lo está. De hecho, el color de cada 
punto se almacena en un determinado byte, en una forma que no es obvia 
pero que tampoco nos interesa por el momento. Para dar una explicación 
sencilla, vamos a imaginarnos que hay una correspondencia uno a uno en- 
tre puntos y bytes, de manera que la configuración de los bits de un byte 
es lo que indica al Amstrad cómo debe dibujar el correspondiente punto 
en la pantalla. Esto no es exactamente así, pero el modelo servirá perfec- 
tamente para lo que necesitamos comprender. 

Supondremos que se puede elegir entre cuatro colores y que el byte que 
representa un punto de pantalla puede tener uno de los cuatro valores de 
la figura 4.3, 

Cuando la pantalla está completamente azul, todos los bytes valen 
00000000; si está completamente blanca, todos valen 00000001 y así suce- 
sivamente. Al dibujar una línea blanca, los bytes correspondientes a los 


CÓDIGO BINARIO — COLOR 


00000000. Azul 
0o000001 Blanco 
00000010. Amarilo 
oooO Rojo 


Figura 4.3. Representación binaria de los colores en el supuesto ficticio. 
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puntos de la línea toman el valor 00000001; lo mismo, pero con el valo) 
00000010, cuando se dibuja una línea amarilla. 

Dijimos hace tiempo que había códigos ASCII que representaban co 
mandos del Amstrad como, por ejemplo, movimientos del cursor o borra 
do de la pantalla. Uno de estos códigos establece la modalidad en quí 
el Amstrad dibuja los puntos. 

Se puede hacer que el Amstrad dibuje en la modalidad de “or exclusivo 
(que se abrevia por EXOR? o, más frecuentemente, por XOR)). 

Cuando no se emplea esta opción, el Amstrad se limita a cambiar el an 
terior valor del byte por el nuevo. Por ejemplo, al dibujar una línea ama 
villa, los bytes correspondientes tomaran el valor 00000010. 

Con la opción XOR el Amstrad combina el viejo valor del byte con € 
nuevo, según ciertas reglas. Vamos a examinar lo que ocurriría con ul 
byte individual correspondiente a un punto de la pantalla, para ver qu 
el efecto es el que nos interesa. Supongamos para empezar que el byb 
tiene el valor 00000000, o sea, representa un punto del color azul del fon 
do, como en la figura 4.4: 


úOOLOO0O Un punto del color del fondo (azul 


Figura 4.4. 


Supongamos que se dibuja una línea amarilla (valor 00000010) sobr 
dicho punto. La situación es la que indica la figura 4.5: 


00000000 Un punto azul y 
OQGDO una linea amarila sobre el punto 


Figura 4.5. 


Como el Amstrad está empleando la opción XOR, lo que hace no e 
reemplazar 00000000 (azul) por 00000010 (amarillo), sino mezclar los de 
bytes. Donde los bits de ambos bytes son diferentes, pone un 1 y, dond 
son iguales, pone un 0. El resultado es que el valor que queda correspor 
de a un punto amarillo, como se puede ver en la figura 4.6. O sea, ocurt 
lo mismo de siempre. Desde luego esto no es lo que el lector podría espt 
rar después de la publicidad que hemos hecho de la opción XOR. 


Foxxas y DIBUJOS 93 


000000 Un panto azul 
XOR 00000010 cruzado por una lines amarila 
"0000000 de un punto amarlo. 


Figura 4.6. 


Veamos ahora qué ocurre con esta opción si se dibuja una línea amari- 
la cruzando otra línea ya dibujada. Elefecto, que se muestra en la figura 
4.7, es más bien inesperado. Como coinciden los bytes antiguo y nuevo, 
la opción XOR produce el valor 00000000, correspondiente al color azul 
del fondo; la línea desaparece de la misma forma que si se hubiese dibuja- 
do en azul con la opción normal. 


ú0000001o- Un punto amaril 
OR 00000010 cruzado por una linea amarila 
(00000000 da un punto del color del fondo (azul) 


Figura 4.7. 


Sia continuación se dibuja encima otra línea amarilla, la línea amarilla 
original reaparece, puesto que se produce de nuevo la situación dela figu- 
ra 4.6. 

¿Qué ocurre cuando se dibuja (con la opción XOR) una línea amarilla 
sobre una línea blanca? 


100000001 Un punto blanco 
XOR ODOOCO1O cruzado por una línea amarila 


Figura 4.8. 
Resulta una línea roja, como explica la figura 4.9: 


190000001 Un punto blanco, 
XOR 00000010 cruzado por una lnea amarila 
00000011 da un punto rojo 


Figura 4.9. 


De nuevo, al dibujar la línea del mismo color que tiene, el color que 
queda es el del fondo, como ocurre en la figura 4.10. 
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10000011 Un punto rojo 
XOR 00000011. cruzado por una linea roja 
¡90000000 . da in punto del color del fondo (zaul) 


Fígura 4.10. 


Es posible que la opción XOR no le parezca muy útil, pero los efectos 
gráficos que consigue son de un valor inestimable. Permite dibujar líneas 
o borrarlas sin afectar a las demás; así se puede ensayar con un dibujo 
y corregirlo, antes de hacerlo definitivo, Todo lo que hace falta recordar 
es que, con la opción XOR, lo que se dibuja dos veces desaparece. 


Dibujo con la opción XOR 


Antes de comenzar el diseño de un nuevo programa de dibujo que aprove- 
che las posibilidades de la opción XOR, vamos a ver qué facetas podría- 
mos tratar de incluir: 


1) que las líneas sean provisionales o permanentes; 

2) que se puedan borrar líneas; 

3) que el dibujo se pueda grabar en cinta; 

4) dibujo automático de figuras predefinidas, como circunferencias o 
rectángulos; 

5) traslación, ampliación a escala y otros tipos de movimientos de las 
figuras. 


De las dos últimas funciones ya trataremos en un capítulo posterior, 
Para incluir 1) no hay problema después de lo que acabamos de ver. Para 
realizar 2) y 3), lo mejor sería tener almacenadas en una matriz las coorde- 
nadas de los extremos de las rectas. Teniendo estos datos almacenados 
es sencillo identificar una línea y borrarla. También sería fácil almacenar 
el dibujo en un fichero; bastaría con guardar esta matriz de coordenadas, 
que se podría utilizar para reproducir el dibujo en cualquier momento. 

Vamos a realizar un programa de diseño modular, para poder ampliar- 
lo fácilmente: 


10 MODE e 
20 DIM «(100),y (100) 
30 kant=320: yant=200 
40 x=320: y=200 

50 colorvisible=1 
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60 PRINT CHR6(23)4CHR8 (113 
70 GOSUB 1000 

80 GOSUB 2000 

90 END 

999 REM dibujo de la recta 
1000 PLOT x,y,colorvisible 
1010 DRAW xant,yant 

1020 RETURN 

2000 WHILE respuestasc>"e" 
2010 GOSUB 1000 
2020 respuestas: 
2030 1F respuesta 
2040 1F respuestas: 
2050 1F respuesta! 
2060 1F respuestas="." THEN x=x+g 

2070 1F respuestas=" " THEN GOSUB 3000 

2080 GOSUB 1000 

2098 WEND 

2100 RETURN 

2999 REM opcion grafica normal para dibujar de m 
anera pernanente 

3000 FRINT CHR9 (23) ¿CHR$ (0) y 

3010 GOSUB 1000 

3019 REM vuelta a la opcion XOR 

3020 PRINT CHR$ (23) ¿CHR$ (1) 5 

3030 con=con+1 

3040 x (con) =x y (con) =y 

3050 xant=x:yant=y 

3060 RETURN 


La línea 20 reserva matrices para las coordenadas de 100 puntos (esta can- 
tidad puede perfectamente aumentarse). Las variables x e y son las coor- 
denadas del punto con el que se está trabajando en ese momento. Las va- 
riables xant e yant son las coordenadas del último punto que se ha fijado 
definitivamente, Éstas son las coordenadas que deben estar disponibles 
para poder dibujar si se desea una recta permanente entre ambos puntos. 

La subrutina 2000 es el módulo central del programa. Se encarga de 
consultar el teclado y dibuja y borra sucesivamente una recta entre (X,y) 
y (xant,yan). 

La subrutina 1000 se encarga de dibujar la recta entre ambos puntos 
cuando uno de ellos va desplazándose; es una técnica que podría llamarse 
de la “cinta elástica” por el efecto visual que produce. 
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Al pulsar la barra espaciadora, la línea se dibuja permanentemen 
mediante la subrutina 3000. Esta subrutina pone el modo gráfico en 
modalidad normal, dibuja la línea y vuelve a la modalidad XOR. Li 
coordenadas del punto se almacenan en las matrices y sus valores | 
asignan a las variables xant e yant para servir de arranque a le recta s 
guiente. 

Podemos modificar el programa para dar la opción de dibujar o no 
línea provisional: 


55 lineadi 
999 REM dibujo de la recta to no si lineadib=0) 
1000 PLOT x,y,colorvisible 

1005 1F lineadib=0 THEN RETURN 

1010 DRAW xant,yant 

1020 RETURN 

2070 1F respuegtas=" " THEN GOSUS 320 
1 

2071 1F respuesta$="1" THEN IF lineadib=0 THEN 1 
ineadib=1 ELSE lineadib=0 


ineadib= 


La línea 2071 permite utilizar la tecla Y para conmutar entre ambas 0 
ciones. Cuando lineadib=0 no se dibuja la línea, terminando anticip: 
damente la subrutina 1000. Al ejecutar ahora el programa, podrá ver qu 
la nueva opción le sirve también para fijar un punto sin que quede defin 
tivamente unido por ninguna línea al anterior. 

Es muy fácil hacer que se pueda borrar una línea. Vamos a limitarnc 
a permitir que se borre la última línea trazada, pulsando la tecla *b': 


2072 1F respuestas="b" THEN GOSUB 4000 

3998 REM no marcha si se trata de borrar una lin 
ea que no existe 

3999 REM ya veremos como se arregla en el proxim 
o programa 

AQUA x=x (con): y=y (con) 

4010 con=con—1 

4828 xant=x (con): yant=y (con) 

4030 GOSUB 1000 

4040 RETURN 


Esto permite también borrar cualquier línea trazada, pero a costa de bi 
rar todas las que se han dibujado después de ella. 
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Si le parece que la respuesta a las órdenes del teclado es algo lenta, aña- 
da las líneas siguientes: 


1 DEFINT c,f,1,0,8,x,Y 
2 SPEED KEY 2,2 
89 SPEED KEY 10,5 


Ya hemos dicho antes que la utilización de enteros mejora la velocidad 
de los programas. La instrucción SPEED KEY va seguida de dos núme- 
ros que indican el tiempo que debe pasar para que comience a repetirse 
una tecla y el periodo de la repetición, todo ello en unidades de 1/50 se- 
gundos. Con esos dos valores se puede regular la velocidad con la que 
el ordendor responde a la pulsación de las teclas. Cuando se pulsa una 
tecla, el ordenador espera el tiempo especificado por el primer número 
antes de repetir el carácter. Si la tecla sigue pulsada, va repitiendo el ca- 
rácter a intervalos cuya duración es la especificada por el segundo de los 
números. Ántes de salir del programa hay que volver estos datos a sus 
valores normales pues, en caso contrario, sería practicamente imposible 
teclear correctamente los comandos posteriores. 

Cuando se ha creado un dibujo que constituye una obra maestra, con= 
viene guardarlo. Para ello hay que cambiar un poco el programa. No 
basta con recordar todos los puntos fijados, sino que hay que saber tam- 
bién qué puntos se han unido con rectas y cuáles no; 


20 DIM :(100),y(100),1 (100) 
303% cons=con+i 

3040 x (con)=x:y (con) =y 
3045 1 (con)=lineadib 


3050 xant=x:yant=y 
3060 RETURN 
4008 x=x (con) :y=y (con) ;lineadibs1 (con) 


Las matrices x( ) e y( ) son para las coordenadas de los puntos. La ma- 
triz 1) sirve para saber si un punto se ha unido al anterior; para ello basta 
con que guarde el valor de la variable lineadib cuando se fija el punto. 
Si el valor guardado es O, significa que la línea no se trazó y que el punto 
no quedó unido al anterior. Cualquier otro valor indica queel punto que- 
dó unido al anterior, 


2074 1F respuestas="i" THEN GOSUB 7000 
2075 1F respuestas="0" THEN GOSUB B00D 
6000 CLG 
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6018 xantex (1) 1yantey (1) 
6820 FOR valor=2 TO con 
6038 «=x (valor): y=y (valor) 
6042 lineadib=1 (valor) 
6050 GOSUB 1090 

6068 xant=x:yant=y 

6070 NEXT 
6080 x=3203 
6090 RETURN 
7002 MODE : 
70:2 FRINT"Carga de datos de un fichero" 
7220 INPUT"Nombre del fichero: "¡ficheres 
7030 OPENIN ficheros 


=220:11neadib=0 


7040 con=0 

7050 WHILE NOT EDF 

7062 con=con+1 

7078 INPUT 49, con), y (com), 1 (con) 
7000 MEND 


7090 CLOSEIN 
7202 MODE Y 

7110 WINDOW 1,20,25,25 

7120 xant antey (con) 
7130 
7140 GOSUB ¿000 
7150 RETURN 
2020 MODE 1 


S010 PRINT"Brabacion de datos en un fichero" 


2020 INPUT"Nombre del fichero: "¡ficheros 
8030 OPENOUT ficheros 

B049 cuenta=a 

8050 WHILE cuenta<=con 


E060 WRITE 49,x(cuenta) , y (cuenta) ,1 (cuenta) 


8070 cuenta=cuenta+l 
280 END 

8098 CLOSEDUT 

6108 MODE a 

B110 WINDOW 1,28,25,25 
8120 GOSUB 4000 

8130 RETURN 


La subrutina 8000 se encarga de grabar en un fichero las tres matric 
de datos y, posteriormente, vuelve a dibujar la figura con la rutina 600 
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De la misma forma que se puede grabar los datos, también se los puede 
cargar; esto es lo que hace la subrutina 7000. No era estrictamente nece- 
sario cambiar al modo 1 para ejecutar estas rutinas, pero en modo 1 se 
leen mejor los mensajes. 

La rutina de grabación se invoca pulsando la tecla “o”, y la de carga con 
41; hemos puesto estas para recordar input/output (o sea, entrada/sali- 
da), pero usted puede programarlo de otra forma. 

Ya tenemos prácticamente completo nuestro programa de dibujo. Nos 
queda únicamente añadir la opción del color: 


2070 1F respuesta$=" " THEN GOSUB 3000:lineadib= 
colorvisible 

2071 1F respuestas="1" THEN IF líneadib=0 THEN 1 
ineadib=colorvisible ELSE lineadib=0 

2076 1F respuestat="c" THEN colorvisible=i+(colo 
rvisible+1) MOD 3 

3045 1F lineadib>Q THEN 1 (con)=colorvisible 
4025 IF lineadib>0 THEN colorvisible=l1neadib 


El color crea problemas, puesto que para borrar una línea hay que dibu- 
jarla con la opción XOR y el mismo color. Antes hemos visto cómo una 
línea blanca, dibujada sobre una amarilla, no borraba ésta, sino que la 
cambiaba de color. Afortunadamente, no hay necesidad de crear una 
nueva matriz para almacenar los colores, pues la propia matriz) sirve 
para ello, tanto si se desea borrar líneas como para las operaciones de gra- 
bación y carga. 

“Vamos a terminar el capítulo con una demostración de la flexibilidad 
de un programa diseñado como éste. Hemos añadido una opción que 
permite realizar a otra escala el dibujo que hayamos creado: 


- 2073 1F respuestat="s" THEN GOSUB 5000 
5000 WINDOW 1,20,25,25 
5010 INPUT"Escala; "¿escala 
5018 REM multiplica los valores por el factor de 
escala 
5019 REM tomando como centro el punto donde esta 
el cursor 
5020 FOR valor=1 TO con 
5030 x (valor) =escalax(x (valor)-x)+320 
5049 y (valor) =escalar (y (valor) -y)+208 
5050 NEXT 
5060 GOSUB 4000 
5070 RETURN 
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Esta opción se invoca mediante la tecla “s”, que provoca el salto a la su: 
brutina 5000; la rutina se encarga de pedirnos la escala con la que quere 
mos aumentar o disminuir el dibujo. Por ejemplo, una escala de 2 dibw: 
Jará la figura a tamaño doble, mientras que 0.1 la reducirá a la décima parte 

La rutina aprovecha el hecho de que el Amstrad no se preocupa de sa: 

ber si las coordenadas de los comandos gráficos caen fuera de la pantalla, 

La rutina hace que se dibuje toda la figura, aunque sólo una parte quede 
dentro de la pantalla. Esta parte corresponderá a los puntos que en la 
versión a escala tengan coordenada X en el margen 0. . .639 y coordenada 
Y en el margen 0. ..399, 

Cuando se ha elegido el factor de escala, el ordenador multiplica por 
dicho factor las coordenadas que figuran en las matrices x( ) e yl ). El 
centro del alargamiento es el punto en el que se encontraba el cursor de 
dibujo en ese momento. El nuevo dibujo aparece centrado alrededor del 
punto (320, 200) de la pantalla, que se toma además como nueva posición 
del cursor. 

La utilización de enteros puede resultar ventajosa para hacer más rápi- 
do un programa, pero aquí tiene la desventaja de limitar a los números 
enteros el factor de escala que se puede emplear. 


Ejercicios 


1. Añada unas pocas líneas al final del programa para devolver el modo 
de pantalla, la velocidad de respuesta de las teclas, etc., a sus valores 
habituales. 

2. Introduzca instrucciones que impidan que el dibujo se salga fuera de 
la pantalla. 

3. La rutina de borrado de lineas tiene el problema de que puede seguir 
intentando borrar incluso después de haber borrado todas las líneas, 
lo que provocará el “fracaso” del programa. Introduzca instruccio: 
nes que impidan que esto suceda, 

4. Añada una rutina que permita al usuario elegir de forma cómoda los 
parámetros que desea para SPEED KEY. 

5. Añada una rutina que vaya escribiendo en la pantalla las coordenadas 
del cursor en cada momento. 

6. (Más difícil.) Introduzca un borrado selectivo de líneas, para que se 
puedan borrar otras diferentes dela última dibujada. (Puede diseñar 
un cielo que vaya recorriendo todas las líneas, y preparar una tecla pa- 
ra seleccionar la que se desea borrar. Recuerde que además deberá re- 
flejar este hecho en la matriz I(), pues, en caso contrario, la recta rea- 
parecerá cuando vuelva a cargar el dibujo desde la cinta.) 
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Animación ... 


DIBUJOS LINEALES EN MOVIMIENTO 


En el capítulo anterior hemos explicado cómo funciona la opción XOR 
y su utilidad en el dibujo y borrado de líneas. Vamos a estudiar ahora 
cómo podemos utilizarla para producir una animación de las figuras. 
Un método para crear dibujos animados es dibujar y borrar una figura 
a la vez que se desplaza por la pantalla. Es un método muy primitivo, 
pero, para figuras simples, la velocidad del ordenador permite obtener re- 
sultados aceptables. El programa siguiente mueve un rectángulo a lo lar- 
20 de la pantalla dibujándolo y borrándolo en cada posición: 


10 MODE 4 

20 x=100:y=100 

30 «distancia=50: ydistancia=100 
39 REM se increnenta x en xinc cada vez que se d 
ibuja el rectangulo 

40 xinc=4 

50 WHILE x<637 

59 REM dibujo del rectangulo 
60 color=1:GOSUB 1000 

69 REM borrado del rectangulo 
70 color=0:GOSUE 1000 

90 xminine 

90 WEND 

100 END 

999 REM instrucciones para dibujar el rectangulo 
1000 MOVE x,y 

1010 DRAWR «distancia, D,color 
1020 DRAWR QM, ydistancia 

1030 DRAWR —xdistancia, 0 

1040 DRAWR Q,-ydistancia 

1050 RETURN 


101 
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Con pequeñas modificaciones, el rectángulo se puede mover en diagona 


AD xine=tryine=2 
BO xsc+txinciysytyinc 


Con dos líneas más se puede hacer que rebote al llegar a los bordes de | 
pantalla: 


45 continue=1 
SO WHILE continue=1 

59 REM dibujo del rectangulo 

60 color=1:G0SUB 1009 

69 REM borrado del rectangulo 

70 color=8:G0SUB 1000 

7% REM actualizar coordenadas y ver si caen fuer 
a de la pantalla 

BO x=x+xinc:y=y+yine 

B1 IF x<0 DR x>639 THEN minesincrma2enine 
B8 1F y<B OR y>399 THEN yine=-yinc: y=y*2wyinc 
90 WEND 


El resultado empeora cuando interviene una figura formada por mucha 
líneas. Supongamos que queremos animar el dibujo de un perro hech: 
a base de rectas. Para que el movimiento tenga un poco de vida, vamo 
a dibujar la figura en dos posiciones diferentes. El ordenador debe dibu 
jar el perro en una posición, luego borrarlo, dibujarlo en la posición alter 
nativa y, finalmente, borrar este dibujo. A continuación hay que actuali 


Figura 5.1. Utilización de una misma figura en dos posiciones 
diferentes para mejorar la ilusión de movimiento. 
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zar las coordenadas y repetir el mismo ciclo. Para simplificar el trabajo 
de alternar entre los dos dibujos, lo más fácil es almacenar sus coordena- 
das en una matri: 


18 MODE 1 
20 cosuB 1000 

30 GOSUB 2000 

40 END 

998 REM leer en dos conjuntos de 24 coordenadas 
999 REM para dibujar dos posiciones del perro 
1000 DIM x (100), y(100) 

1010 FOR CON=1 TO 52 

1020 READ x (con), y (con) 

1030 NEXT 

1040 RETURN 

1050 DATA 0,0,20,40,20,40,10,80,10,80,0,120,28,1 
0,35,50,35,50,10,80,10,80,70,80 

1060 DATA £60,0,80,40,80,40,70,80,80,10,95,50,95, 
50,72,80,70,80,90,140,70,140,110,120,110,120,00, 
110 

1078 DATA 5,10,25,40,25,40,15,80,15,80,10,120,0, 
15,30,50,30,50,15,80,15,90,75,80 

1080 DATA 73,80,85,40,83,40,65,10,75,80,90,50, 98 
,50,60,15,75,00,100,130,100,130,120,118,120,110, 
90,100 

1999 REM dibujar y borrar sucesivamente el perro 
2000 xinc=0 

2010 indicador=0 

2020 WHILE x(1)+xinc<639 

2038 1F indicador=0 THEN comienzo=1:indicador=1 
ELSE comienzo=27:indicador=0 

2039 REM dibujo del perro 

2049 color=1:GOSUB 3090 

2049 REM borrado del perro 

2058 color=0:G0SUB 3000 

2059 REM nover a la nueva posicion 

2068 xine=xinc+20 

2070 MEND 

2080 RETURN 

2999 REM el perro se dibuja empalmando puntos 
3000 FOR con=comienzo TO comienzo+25 STEP 2 
3010 MOVE x (con) +xinc, y (con) 

3020 DRAM x (con+1)+xine,y(con+1) color 
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3030 NEXT 
3048 RETURN 


El proceso se ve muy bien, ya que la ejecución es sumamente lenta. 
lo que queda claro es que hace falta otro tipo de técnicas. 

Podemos aprovechar una posibilidad que tiene el Amstrad de la que y 
hemos hablado. Se trata de la facilidad para cambiar la gama de color 
con la instrucción INK. Si dibujamos una figura con una tinta que teng 
el mismo color que el fondo de la pantalla (luego invisible), podemos hi 
Cer que aparezca repentinamente dando a la tinta del dibujo cualquier cc 
lor que contraste con el del fondo: 


30 
39 REM poner la tinta 1 con el color del fondo 
40 INK 1,1 

47, REM dibujar un rectangulo usando la tinta 1 
50 color=1:60SUB 1000 

40 :=300: y=300 

70 «d=100: yd==0 

77 REM poner la tinta 2 con el color del fondo 
SU INK 2,1 

B? REM dibujar un rectangulo usando la tinta 2 
A color=2:508UB 1008 

100 continue=1 

107 REM repetir los dibujos hasta que se apriete 
110 WHILE respuestas<)"e" 

119 REM hacer visible la tinta 1 y la tinta 2 de 
1 color del fondo 

128 INC 1,2 

138 1NK 2,1 

139 REM an espera de que se pulse una tecla 

148 respuestat="" 

150 WHILE respuestas="" 

160 respuestat=LONERS (INKEYS) 

170 WEND 

179 REM hacer visible la tinta 2 y la tinta | de 
l color del fondo 

180 INK 1,1 

198 1NK 2,24 
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199 REM en espera de que se pulse una tecla 
200 respuestas!" 
210 WHILE respuesta: 
220 respuestab=LOWER$ (INKEVS) 

230 WEND 

240 MEND 

249 REM tintas del color habitual 
250 INK 1,24 

260 INK 2,20 

270 END 

1002 MOVE x, y 

1010 DRAWR xd, 0,color 

1020 DRAWR 0,yd 

1030 DRAWR 
1040 DRAWR 
1050 RETURN 


Las figuras están ya dibujadas, lo que hace que su aparición sea instantá- 
nea, Esta idea puede servir para producir un dibujo animado a base de 
realizar dibujos del color del fondo y darles después un color visible. ¿Po- 
demos animar el perro de antes con éste método? La respuesta es negati 
va, debido a los problemas que se producen cuando se solapan dos figu- 
ras. Para entender estos problemas, lo mejor será añadir al programa an- 
terior las líneas: 


59 REM esta vez los dos rectangulos se solapan 
60 x=120:y=100 


y ejecutarlo. Parte de un rectángulo desaparece allí donde las figuras se 
superponen. Al dar a uno de los rectángulos el color del fondo, desapare- 
ce también la parte del otro rectángulo que coincide con él. 

Siempre que las líneas no se solapen, los cambios de tinta pueden pro- 
porcionar movimientos suaves y rápidos. Este método es más útil en mo- 
do 0, en el que se dispone de 16 tintas. Se pueden dibujar entonces hasta 
15 figuras con el color del fondo, para, sucesivamente, hacerlas aparecer 
y desaparecer cambiando la tinta correspondiente a la figura. Por ejem- 
plo, el siguiente programa dibuja un rectángulo que se estira y se encoge: 


10 MODE a 
19 REM posicion de comienzo de la esquina del re 
ctangulo 

20 xcom=260: ycom=180 
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29 REM loggítud de los lados 
30 longi tudx=20: longi tudy=20 
39 REM diferencia del tamano de los sucesivos re 


ctangulos 
40 incx=B:incy=6 

so stintafin=15 

60 GOSUB 1009 

78 DOSuB 2000 

80 END 

978 REM dibujar 15 rectangulos del color del fon 
do 


999 REM uno dentro de otro 

1008 FOR con=tintacom TO tintafin 

1810 INK con,1 

1028 movex=con*inex 

1030 movey=con*incy 

1040 ladox=1ongi tudx+2xmovex 

1958 ladoy=10mgitudy+2emovey 

1060 MOVE xtom-movex, ycom=movey 

1070 DRAWR ladox,0,con 

1080 DRAWR 0,ladoy 

1098 DRAWR -Ladox, 0 

1100 DRAWR 0,-ladoy 

1110 NEXT 

1120 RETURN 

1999 REM ciclo de cambio del color de las tintas 
para que aparezca un rectangulo cada vez 

2000 continu 
2010 tintacon=1:tintasig=2 

2019 REM continuar indefinidamente 

2020 WHILE continue=1 

2029 REM se espera la pulsacion de una tecla 
2030 respuestas="" 

2040 WHILE respuestas="" 

2050 respuestas=INKEYS 

2060 WEND 

2869 REM cambiar el rectangulo anterior al color 
del fondo 

2070 INK tintacom,1 

2077 REM cambiar el siguiente rectangulo a'color 
Visible 

2080 INK tintasig,24 
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2088 REM incrementar el numero de tinta para rep 
etir el ciclo de instrucciones 

2089 REM la actual pasa al color del fondo y la 
siguiente a color visible 

2090 tintacom=(tintacom+l) MOD 16 

2100 IF tíntacom=0 THEN tintacom=1 

2110 tintasig=(tintasig+1) MOD 16 

2120 IF tintasig=0 THEN tintasig=1 

2130 WEND 

2140 RETURN 


El método es especialmente eficaz cuando el dibujo animado es cíclico, 
como en este caso. El mayor problema es que no funciona correctamente 
si se solapan las distintas figuras. 

Ya vimos como, con la modalidad gráfica XOR, es posible dibujar una 
línea sin afectar a las ya dibujadas. Añadiendo las líneas 


15 PRINT CHR$(23)CHR$ (13 
265 PRINT CHR$(23)CHRS (0) y 


al programa de los rectángulos parcialmente superpuestos, podremos 
comprobar si la opción XOR sirve en este caso. La modificación funcio- 
na en parte, puesto que los dos rectángulos se ven ahora completamente; 
pero la parte en litigio aparece con un inoportuno color rojo. Podemos 
entender este resultado si reflexionamos sobre la representación de los co- 
lores en el modo 1. 

En el modo 1 existen sólo cuatro tintas diferentes. La razón es que ca- 
da tinta emplea un código binario de dos bits y que hay exactamente cua- 
tro combinaciones posibles de dos bits. Los códigos de las tintas nunca 
cambian, aunque se pueden cambiar los colores de las tintas y, por lo tan- 
to, el resultado efectivo. Por ejemplo, se puede dibujar un punto rojo 
con la tinta 1 usando el comando INK 1,6. 


0OD0RwDo Tinta O (azul) La tinta de cada 
0000000? Tinta 1 (armario) punto se caracteriza 
DOD0001O— Tinta 2 [cyan intenso) — mediante un código 
00000011 Tinta 3 (rojo) de 2 bits 


Figura 5.2. Códigos de 2 bits para las tintas y colores del 
modo 1. 
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En nuestro ejemplo concreto se dibujan dos rectángulos; uno con la tin- 
ta 1 (código 01) y el otro con la tinta 2 (código 10). Recuerde el efecto 
de XOR: si los bits que se combinan son iguales, el resultado es O; si son 
distintos, es 1. Lo que ocurre en los puntos donde los rectángulos se su- 
perponen se muestra en la figura 5.3: 


91 Un punto 8 ura nea amara, 
XOR 10. superpuesto con uno de una línea cyan 
11 da unpunto roo 


Figura 5.3. 


Un punto de una línea amarilla superpuesto con uno de una línca cyan 
da un punto rojo. El resultado es el código 11 de la tinta 3, o sea, la tinta 
roja. Por lo tanto, si hacemos que la tinta 3 sea amarilla en lugar de roja, 
habremos conseguido que se vea la parte superpuesta: 


11 REM tinta 3 de color amarillo 
12 INK 3,24 
261 REM tinta 3 a su color normal 
262 INK 3,6 


El solapamiento no resulta ya un inconveniente. Esto forma la base de 
un método que produce una animación bastante suave: 


1) la primera figura se dibuja en una tinta que contraste con el fondo; 

2) la segunda figura se dibuja en una tinta que tenga el mismo color que 
la del fondo; 

3) se conmutan las tintas de las dos figuras, de forma que la segunda apa- 
rezca y la primera desaparezca; 

4) se borra la primera figura de la posición que ocupa; 

5) se dibuja una nueva figura con la tinta de la primera; 

6) se conmutan las tintas, de forma que desaparezca la segunda figura y 
aparezca la nueva; 


. y así repetidamente hasta completar la animación. El único problema 
estriba en el solapamiento de las figuras, ya que entonces hace falta dibu- 
jar y borrar una figura sin afectar a la otra. Vamos a examinar este pro- 
blema de más cerca. 

Supongamos que estamos en el modo 1 y que utilizamos PEN 1 y 
PEN 2 para las dos figuras. No necesitamos preocuparnos ahora del co- 
lor de cada tinta, que podremos elegir como queramos con el comando 
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INK. Vamos a concentramos en los códigos de 2 bits de las tintas y en 
el efecto que queremos conseguir. 

Para borrar la figura dibujada con PEN 1, lo que se necesita es conver- 
tir el código 01 de su tinta en el 00, que es el de la tinta del fondo. Pode- 
mos conseguirlo haciendo que sus puntos se combinen en modalidad 
XOR con puntos 01. Sin embargo, los que se solapen con los de la segun- 
da figura serán puntos 11 y, al combinarse mediante XOR con 01, se con- 
vertirán en puntos de código 10. Esto es justamente lo que necesitamos. 


01 — Un punto de unalínea amarla 
XOR 01 al que ss superpone otra Inea amarla 
00 8 un punto del color del fondo (azul) 


Figura 54. 


Un punto de una línea amarilla al que se superpone otra línea amarilla 
da un punto del color azul del fondo 


11 Un punto de las dos figuras 
XOR 01 al que ss superpone otra Ines amarilla 
00 de un panto de color eyan 


Figura 55. 


Un punto de las dos figuras al que se superpone otra línea amarilla da un 
punto de color cyan. 

Pero a pesar de que todo parece resuelto, conviene reflexionar aún so- 
bre otra cosa. Si un punto está en la intersección de dos líneas de la mis- 
ma figura y se borra la figura con XOR, el primer borrado hará desapare- 
cer el punto, pero el segundo hará que aparezca de nuevo. 

Podemos obtener el resultado correcto con una técnica algo diferente, 
lo que nos lleva a ver otra de las modalidades gráficas del Amstrad. 

El Amstrad admite también la modalidad gráfica AND. La forma de 
poner en marcha esta opción es el comando PRINTCHR$(23)CHR$(2). 


oroorro1 
AND 11100100 
oro0OTO0. 


Figura 5.6. Un ejemplo del efecto de AND. 
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El efecto del AND es poner un bit a 1 cuando valgan 1 1os correspos 
dientes bits de los dos códigos, y ponerlo 40 en cualquier otro caso, com 
se ve en el ejemplo de la figura 5.6. 

Para borrar en la modalidad AND puntos escritos con la tinta 1, lo qu 
se puede hacer es superponerles el código 10, como en la figura 5.7. 1 
resultado es correcto incluso para los puntos que se encuentran simulté 
Nieamente en ambas figuras, como muestra la figura 5.8. De la mism 
manera, los puntos de tinta 2 se borran superponiéndoles el código 01 € 
la modalidad AND, como mostramos en la figura 5.9. 


01 Un punto de una línea amarila 
AND 10 al que se superpone una linea cyan 
00 da un punto del color del fondo (azul) 


Figura 5.7. 


11 Un punto delas dos figuras 
AND 10 al que se superpone una línea cyan 
10 da un punto de color cyan, 


Figura 5.8. 


10. Un punto de una lino cyan 
AND 01 al que se superpone una nea amarla 
90 día un punto cel color cel fondo azul 


Figura 5.9. 


Vamos a ver lo que ocurre ahora con el problema de dibujar sin alterar 
lo que ya está dibujado. Supongamos que estamos dibujando con la tina 
ta 1. Los resultados que conviene obtener con los distintos puntos para 
realizar nuestro objetivo de no destruir lo que ya está dibujado viene des- 
crito en la figura 5.10. 

Está claro que ni la modalidad normal, ni la XOR ni la AND sirven pa- 
Ta.este objetivo. Pero existe otra opción de la que aún no hemos hablado: 
la modalidad OR. Esta modalidad se activa con el comando PRINT 
CHR$(23) CHR$13). Da como resultado un | cuando es | alguno de los 
dos bits que se componen, y 0 cuando ambos son 0. 
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Código de la tinta con la que está | Código que conviene que resulte tras 
dibujando el punto dibujar encima una línea de tinta 1. 


Soo 
Le 


0 
1 
0 
1 


soso 
sooo 
Soos 


Figura 5.10. 


1001101 
OR 11100100, 
11101101 


Figura 5.11. Un ejemplo del efecto de OR. 


Es fácil comprobar que, al dibujar con la tinta 1 en la modalidad OR, 
se obtienen justamente los resultados apetecidos. Resultados similares se 
Obtienen cuando se dibuja con la tinta 2 en la modalidad OR, como se 
puede ver en la figura 5.12; 


o or 10 ” 

or 1 OR 10 OR 10 on 10 

1 $" 10 ” 
Figura 5.12. 


Podemos poner en práctica todos estos conocimientos para desplazar un 
triángulo por la pantalla: 


10 MODE 1 
20 INK 3,24 

30 DEFINT c,t,x,y 
40 x=100:y=100 
so = 
1 
70 
80 GOSUB 1000 
90 GOSuB 2000 
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100 tipo=s3:tono=2 

110 WHILE 12639 

120 xt qe den dea 

138 GOSUR 2000 

140 GOSUB 1000 

150 «Aris 1a 

160 GOSUB 2000: =x+40 x1=x 140 

170 1F tano=2 THEN tono=1 ELSE tono=2 

188 WEND 

189 REM tintas de los colores usuales 

198 INC 1,2 

200 INC 2,20 

210 INC 3,6 

220 END 

998 REM conmutación de las tintas: la del color 

del fondo pasa a visible 

999 REM y la de color visible pasa al del fondo 

1000 1F color=1 THEN color=24:colorisi ELSE colo 
colari=2 

1018 INK 1,color 

1020 INK 2,colori 

1030 RETURN 

1998 REM la rutina borra y dibuja cuando el tria 

ngulo no es visible 

1999 REM (o sea, cuando esta del color del fondo 

) 

2000 PRINT CHR$(23) ¿CHRS (tipo); 

2010 MOVE x«,y 

2020 DRAW x1,y1,tono 

2030 DRAW x1+S0, yl 

2040 DRAW x+58,y1 

2050 DRAW x,y 

2060 1F tipo=Z THEN tips 

2070 RETURN 


3 ELSE tipo=2 


La línea 180 hace retroceder al triángulo precedente, para borrarlo cuan 
do el color de su tinta es invisible. La línea 1000 cambia las tintas paré 
que las figuras aparezcan y desaparezcan. La 2060 intercambia las opcio: 
nes OR y AND. También se puede utilizar la misma técnica para hace: 
que se mueva nuestro antiguo perro; 
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10 MODE 1 

14 REM para mayor velocidad se utilizan numeros 
enteros 

15 /DEFINT cys,t, Xy 

20 GOSUB 1008 

30 GOsuB 2000 

49 PRINT CHR$ (23) CHR+(0)5 

SO END 

998 REM lectura en dos conjuntos de 26 coordenad 
999 REM para dibujar dos posiciones diferentes d 
el perro 

1000 DIM (100), y (180) 

1010 FOR con=i TO 52 

1020 READ x(con),y(con) 

1030 NEXT 

1040 RETURN 

1050 DATA 0,0,20,40,20,40,10,80,10,80,0,120,20,1 
0,35,50,35,50,10,80,10,80,70,80 

1060 DATA 60,0,82,40,50,40,70, 80,80, 10,75,59,75, 
50,70, 80,70,80,90,142,90,140,110,120,110,120,80, 
110 

1070 DATA 5,10,25,40,25,40,15,90,15,80,10,120,0, 
15,30,50,30,50,15,80,15,82,75,60 

1080 DATA 75,00,05,40,05, 48,65, 10,75, 80,90, 58,90 
,50,60,15,75,80,100,130,100,130,120,112,120,110, 
90,100 

1999 REM la tinta 3 con el color que interesa pa 
ra KOR 

2000 INK 3,24 

2010 color=1:colori=24 

2020 tipo=3:tono=1 

202) REM dibujo de la figura en la posicion imic 
ial 

2039 GOSUB 4000 

2040 GOSUB 50% 

2058 tipo 
2068 xinc=0 

2070 WHILE « (1) +hxine<ó39 

2079 REM se actualiza xinc para la nueva figura 
2089 xinc=xinc+20 

2089 REM dibujo de la nueva figura en el color d 
el fondo 


ano=2 
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2098 GOSUB 5000 
2099 REM conmutación de las tintas 

2100 GOSUB 4000 

2109 REM se borra la figura previa cuando est 

a del color del fondo 

2110 xine=xinc-20 

2120 GOSUB 5200 

2129 REM se actualiza xinc para la figura actual 
2130 xinc=xinc+20 

2148 1F tono=2 THEN tono=1 ELSE tono=2 

2150 WEND 

2160 RETURN 

2999 REM el perro se dibuja empálmando puntos 
3000 FOR conscomienzo TO comienzo+25 STEP 2 
3010 MOVE x« (con) +xine,y(eon) 

3020 DRAW x (con+1)+xinc, y (con+1),tona 

3030 NEXT 

3040 RETURN 

3999 REM conmutación de colores 

4000 IF color=1 THEN color=24icolorim1 ELSE colo 
:color1=24 

4010 INK 1,color 

2020 INK 2,colori 

4030 RETURN 

4999 REM cambio del modo grafico entre dibujo y 
borrado 

5000 PRINT CHRé(23)CHRS (tipo); 
SOLD 1F tiportono=4 THEN comienzo: 
7 

5020 GOSUB 3000 

5030 1F tipo=2 THEN tipo=3 ELSE tipo=2 
5040 RETURN 


ELSE comienz 


La animación que se obtiene así es bastante suave. 


Ejercicios 


1. Dibuje una serie de circunferencias iguales en diferentes posiciones y 
con diferentes tintas, de manera que, al cambiar los colores de las tin- 
tas entre el del fondo y el color visible, se reproduzca el bote de una 
pelota. 
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2. Construya, utilizando rectas, dos figuras de un gimnasta que realice un 
ejercicio con los brazos, animando entonces el movimiento mediante 
el empleo de tintas. 


ORDEN DE PRIORIDAD DE LOS COLORES 


Vamos a ver otra consecuencia de la manipulación de tintas. El progra- 
ma siguiente dibuja dos rectángulos que se solapan parcialmente; esta vez 
se trata de rectángulos rellenos de color, uno amarillo y otro azul: 


18 MODE 1 
19 REM hacer amarillo el color cercano 
20 INK 3,24 

30 PRINT CHR$ (23) CHR$ (1) 5 

42 :=100: y=100 

50 :d=50: yd=100 

68 INK 1,24 

70 color=1:G0SUB 1900 

80 x=100:y=100 


90 
100 

110 GOSuB 1009 
120 FRINT CHR$(23)CHR$ (0) 7 
130 END 


99% REM rectangulo relleno de color 
1000 FOR xcord=x TO x+xd STEP 2 
1010 MOVE xcord, y 

1020 DRAWR 3,yd,color 

1030 NEXT 

1040 RETURN 


Al ejecutar el programa no le sorprenderá el hecho de que uno de los 
rectángulos tape parte del otro. Lo que le sorprenderá seguramente es 
que sea el amarillo, que se ha dibujado primero, el que tape al azul, que 
se ha dibujado más tarde. La responsable es la línea 20, cuya conse- 
cuencia práctica es convertir en amarilla el área común a las dos figuras. 
Esto significa que hemos decidido que el amarillo sea el color del primer 
plano y el azul el color del fondo; por eso hemos dado prioridad al ama: 
rillo. 
Basta con cambiar la línea 20, haciendo que el área común sea azul, y 
será el rectángulo azul el que tape parte del amarillo: 
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19 REM hacer azul el color cercano 
20 INK 3,20 


Es muy usual en los programas de juegos emplear esta posibilidad de dar 
prioridad a un color. Con un manejo adecuado de INK se logra que una 
figura pueda pasar sobre los dibujos del fondo sin borralos; o, lo que es 
todavía más impresionante, que pueda pasar por detrás de otras figuras 
y salir indemne por el lado contrario, como vamos a demostrar ahora. 

Vimos en el capítulo 2 que una de las formas más sencillas de producir 
un dibujo animado es utilizar la sentencia TAG e ir escribiendo un carác» 
1er en sucesivas posiciones. El efecto que esto produce cuando en la pan- 
talla hay dibujados objetos es previsible: 


10 
20 
29 REM dibujar y rellenar un rectangulo 
30 FOR xcord=x TO x+100 STEP 2 

40 MOVE xcord, y 

SO DRAWR 0,100,1 


60 NEXT 
70 xprint=0:yprint=180 

79 REM texto en el cursor grafico 

80 TAG 

E9 REM escribir el caracter en las sucesivas pos 
iciones 


90 FOR xcord=xprint TO 400 STEP 2 
100 MOVE «cord, yprint 

110 PRINT CHR$(233) 5 

120 NEXT 

130 END 


Como era lógico, el carácter elimina todo aquello sobre lo que pasa. El 
efecto es aun peor si el carácter es de los que no tienen un borde blanco 
a la izquierda: 


109 REM caracter que es una flecha sin borde bla 
neo a la izquierda 
110 PRINT CHR$(243)5 


La solución es usar TAG en combinación con la modalidad gráfica XOR. 
Aun así, no basta con limitarse a escribir el carácter: 


10 
20 
29 
30 
40 
50 
60 
70 
7 
78 
E 
ES 
ici 
20 
100 
10 
120 
129 
1 
130 
140 
150 


El resultad 
modalidad 
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MODE 1 

x=230: y=130 

REM dibujar y rellenar un rectangulo 
FOR xcord=x TO x+108 STEP 2 

MOVE xcord, y 

DRANR 0,100, 1 

NEXT 

xprint=0: yprint=180 

REM opcion XOR 


PRINT CHRS(23)CHRS (1) 5 
TAB 

REM escribir el caracter en las sucesivas pos 
ones 

FOR xcord=xprint TO 400 STEP 2 

MOVE xcord,yarint 

PRINT CHR$ (263) 3 

NEXT 

REM opcion grafica nornal y modo texto norma 
TASOFF 

PRINT CHR$ (23) CHRS (0) ; 

END 

lo es aun peor. La razón del fracaso es que, al combinar en la 


XOR un carácter con otro igual desplazado un punto a la dere- 


cha, lo que resulta no tiene nada que ver con el carácter original. 
Vamos a utilizar una flecha diseñada por nosotros con un borde blanco 
a la izquierda; es la de la figura 5.13. 


ura 5.13. Un carácter con borde blanco a la izquierda. 
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Este carácter lo dibujaremos a la izquierda de la pantalla y lo iremos 
desplazando hacia la derecha un punto cada vez. La forma de hacerlo no 
va a ser, lógicamente, componerlo en la modalidad XOR con el propio 
carácter desplazado; eso ya sabemos que no funciona. Lo que haremos 
será definir un segundo carácter que, al componerlo con la flecha en la 
modalidad XOR, dé una copia de la flecha desplazada un punto. La figu- 
ra 5.14 esquematiza lo que queremos hacer. 


Arton 
(75 


Je 


Ho ; 
de puntos) Clero dd 


==, 
Debe resultar la flecha 
original desplazada un 
punto hacia la 
derecha 


Figura 5.14. Composición con un segundo carácter en la 
modalidad XOR para crear una copia del primero desplazada 
un punto. 
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Es fácil buscar el segundo carácter que necesitamos. Una forma de 
hacerlo es proceder por tanteo fila por fila de puntos, como muestra la 
figura 5.15 para la primera fila. 


00001000 Primera fía de laiecha (8% 
XOR 00011000 compuesta con XOR con este número (24) 
0001000 — da la primara fado la fseha dooplazada (81 


Figura 5.15. 


Pero hay un recurso más sencillo que se basa en el hecho siguiente: si 
se compone un número binario con un segundo mediante XOR, y el resul: 
tado se compone con el primer número, lo que resulta ahora es el segundo 
número. Lo que se hace entonces es componer (con XOR) la flecha con 
la flecha desplazada; el resultado será el carácter que hay que componer 
con la flecha para obtener la desplazada. En las figuras 5.16 y 5.17 se 
muestra claramente este proceso. 


D0O0I009 Primera fa de la flecha (81 
XOR Q0GD1000— compuesta con el resultado quo se desea (8) 
DOCIIOOD da el número con el que hay que componer (24) 


Figura 5.16, 


00001100 Segunda fla de la flecha 1121 
XOR 00001100 compuesta con el resultado que se desea (12) 
DOCIOTOO.— da el número con el que hay que componer (20) 


00001110. Tercera fla de lasecha (14) 
XOR 0001110 — compuesta con el resultado que se desea (14) 
úDOCIOOTO.— da el número con el que hay que componer (18) 


y lo mismo para las restantes filas 


Figura 5.17. 


Vamos a incorporar los dos caracteres en un programa, para demostrar 
cómo se realiza el desplazamiento dejando intacto el fondo: 


Ba REM definicion del caracter flecha 
85 SYMBOL 240,8,12,14,127,127,14,12,8 
B6 REM definicion del caracter auxiliar para XOR 
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87 SYMBOL 241,24,20,18,129,129,18,20,24 

70 FOR xcordexprint TO 400 STEP 2 

100 MOVE «cord, yprint 

108 REM escribir la flecha normal en la prinera 
posicion 

109 REM y usar XOR para trasladar la flecha a la 
siguiente posicion 

119 1F xcord=xprint THEN PRINT CHR$(240)5 ELSE P 
RINT CHR$(291)3 

128 NEXT 

129 REM opcion grafica normal y modo texto norma 
1 

130 TAGOFF 

140 PRINT CHR$ (23) CHR$(0) y 

150 END 


Con esto tenemos la puerta abierta a todo tipo de efectos en los progra: 
mas de juegos. Combinando TAG, XOR y los cambios de color de las 
tintas, podemos diseñar todos los tipos de comportamiento que son nece- 
sarios en los juegos. Se puede hacer que el protagonista sea capaz de atra- 
vesar los obstáculos amarillos de la pantalla, pero no los azules; que el 
monstruo que le persigue atraviese sólo las barreras azules; o que nada de- 
tenga al supermonstruo cuando persigue al protagonista. 

Cuando cree un carácter que se desplace, deberá recordar que debe 
señarlo con un borde blanco de un punto de ancho. De otra manera, 
dejando un rastro al desplazarse. El borde debe estar en la posición 
opuesta a la dirección del movimiento. La flecha de nuestro ejemplo lo 
llevaba a la izquierda porque debía desplazarse hacia la derecha, 

Si va a desplazar un carácter en todas las direcciones, deberá diseñar 
un carácter auxiliar diferente por cada dirección del movimiento, em- 
pleando cada carácter al realizar el desplazamiento en la correspondiente 
dirección. 

No hay por qué limitarse a utilizar figuras con un sólo carácter (aunque 
son las más sencillas). El siguiente programa crea un coche compuesto 
por tres caracteres, y la correspondiente figura auxiliar formada también 
por tres caracteres. El coche se mueve a lo largo de la pantalla, pasando 
detrás de los bloques amarillos y delante de los bloques de color cyan: 


10 MODE 1 
20 GOSUB 1008 
30 GOSUB 2000 
40 GOSUB 3000 
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50 TAGOFF 
40 PRINT CHRS(23)CHR$(0) 3 

70 END 

998 REM las areas de solapamiento seran de la ti 
nta 3 que henos hecho amarilla 

999 REM esto equivale a considerar mas cercano e 
1 plano del color amarillo 


1009 
1010 
1020 
1030 
1040 
1050 
2000 
2010 
2020 
2030 
2040 
2050 
2050 
2070 
2080 
3000 
3010 
3020 
3030 
3040 
3050 


INK 3,24 
y=100: colur=1 

FOR x=100 TO 500 STEP 50 

GOSUB 4000 

NEXT 

RETURN 

SYMBOL 240,0,15,28,124,127,18,12,0 
SYNDOL 241,0,255,120,120,255, 255,2, 0 
SYMBOL 242,0,128,192,254,254,72,48, 0 
SYMBOL 243,0,16,36,132,128,55,20,0 
SYNBOL 244,0,0,137,137,0,1,0,0 

SYMBOL 245,0,128,64,2,7,216,80, 0 
coche$=CHR$ (248) <CHRE (241) +CHRE (242) 
cochexor$=CHR$ (243) +CHR$ (244) +CHR$ (245) 


RETURN 
PRINT CHR$(23)CHR$ (1) 
TAG 
xprint=0:yprint=116 


FOR xcord=xprint TO 558 STEP 2 
MOVE xcord, yprint 
1F xcord=xprint THEN PRINT coches; ELSE PRI 


NT cochexor$; 


3055 
3060 
3070 
4000 
4010 
4020 
4030 
2040 
2058 


WHILE ré=""sr$=IM<EYStWEND 


RETURN 
IF color=1 THEN color=2 ELSE color=1 
FOR xcord=x TO x+30 STEP 2 

MOVE xcord, y 

DRAWR 0,100,color 

NEXT 

RETURN 


La línea 1000 consigue que la parte cn que se solapan el coche cyan y el 
bloque amarillo quede de color amarillo, Si se cambia por INK 3,6 (color 
habitual de la tinta 3), el coche se volverá rojo al pasar por los bloques 


amarillos. 
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El hecho de que el coche se convierta en azul (color del fondo) cuando 
pasa sobre un bloque cyan deteriora bastante el buen efecto. Esto es de- 
bido a que se superponen con XOR dos figuras con la misma tinta, con 
lo que el resultado es 0, que es la tinta del fondo. 


0010 Un pumo cyan 
XOR 0010 solapado por otro punto cyan 
000) da un punto del color del fondo lazul) 


Figura 5.18. 


La solución al problema estaría en dibujar los bloques cyan con otra 
nta y preparar la tinta resultante para que dé el color adecuado. El pro- 
blema estriba en que el modo 1 admite 4 tintas y serían necesarias algunas 
más. El modo 0, con sus 16 tintas, permite hacer lo que hemos dicho: 


10 MODE £. 
998 REM tinta 3 amarilla para que resulte adecua 
do el resultado del solapamiento cyan/amarillo 
999 REM amarillo es el color de primer plano 
1008 INK 3,24 de 

1001 REM tinta 6 cyan para que resulte adecuado 
el resultado del solapamiento cyan/blanco 

1002 REM blanco es el color del fondo 

1003 INk 6,20 

2071 MOVE 0,8 

2072 DRAN 2,0,2 

3030 FOR xcord=xprint TO 590 STEP 4 

4002 1F color=1 THEN color=a ELSE color=: 

4010 FOR xcord=x TO x+38 STEP 2 

4028 MOVE «cord, y 

4030 DRANR 0, 120, 0lor 

9040 NEXT 

2080 RETURN 


En el modo 0 cada tinta se representa por cuatro bits. El coche es de la 
tinta 2, y puede pasar sobre bloques amarillos (de tinta 1) y sobre bloques 
blancos (de tinta 4). A la vista de la figura 5.19, lo que habrá que hacer 
será convertir en amarilla la tinta 3 y en cyan la 6; es lo que se ha hecho 
en el programa en las líneas 1000 y 1003. 
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0010 El coche cyan 
XOR 0001 sobre un bloque amarilo 
001 resulta dela tinta 3 (roja por defecto) 


0010 El coche cyan 
XOR 0100 sobre un bloque blanco 
ONO resulta de la tita 6 (azul intenso por defecto) 


Figura 5.19. 


También se puede hacer que el coche pase por delante de los bloques 
amarillos y por detrás de los blancos: 


998 REM tinta 3 cyan para que resulte adecuado e 
1 resultado del solapamiento cyan/amarillo 

999 REM ahora amarillo es el color del fondo 
1000 INK 3,20 

1001 REM tinta á blanca para que resulte adecuad 
o el resultado del solapamiento cyan/blanco 

1002 REM ahora blanco es el color de primer plan 
1003 INK 6,26 


Hay que advertir que surge una pequeña complicación por el hecho de 
que, al usar TAG, la escritura de caracteres se hace con la tinta de la plu- 
ma gráfica; esta tinta sólo se puede cambiar con los comados gráficos. 
Para que el color del coche sea cyan, la tinta de la pluma gráfica debe 
cambiar de 4 (blanca) a 2 (cyan). Esa es la razón de las líneas 2071 y 2072, 
sin las cuales el coche sc dibujará en blanco. 

El modo 0 ofrece las mejores oportunidades para crear diferentes pla- 
nos con los colores, dado el muestrario de tintas que permite. Podemos, 
por ejemplo, seleccionar colores de fondo, intermedios y de primer plano, 
como en la figura 5.20. Con esa distribución, el bit más a la derecha indi- 
<a presencia de amarillo, color lejano; el siguiente bit indica presencia de 
eyan, color intermedio; el siguiente indica blanco, que es el color del pri- 
mer plano. Otras combinaciones de bits muestran el ocultamiento de 
unos colores por otros. 

Con la opción XOR podemos dibujar o borrar líneas de cualquier color 
sin alterar las superficies solapadas o las líneas ocultas de otros colores. 
Como ejemplo, veamos el efecto de XOR sobre una línea blanca situada 
en un plano próximo, que oculta una línea cyan situada en un plano me- 
dio, que a su vez oculta una línea amarilla situada al fondo. El efecto 
de borrar la línea blanca se ve en la figura 5.21, y el efecto de borrar la 
línea eyan en la figura 5.22. 
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0000 Azul — fonolejano 
0001 — Amarilo — fondo próximo 

0010 Cyan — plano mado, 

0011 Cyan — plano medio tapando fondo próximo 

0100 Blanco — primer plano 

0101 Blanco — primer plano tapando fondo próximo 

Q1M1_ Blanco — primer plano tapando plano medio, que a su vez tapa fondo próximo 


Figura 5.20. Creación de diferentes planos de colores, eligiendo colores 


adecuados para las tintas. 


OY Blanco que oculta cyan que oculta amarilo 
XOR 0100 — al borar el blanco 
001 aparece el cyan 


Figura 5.21. 


ON Blanco que ocuta cyan que oculta amorilo 
XOR 0010 — al borrar el cyon 
0101 queda blanco que oculta amerilo 


Figura 5,22. 


Es decir, se pueden borrar colores sin alterar los que estén en otros pla- 
nos. El programa siguiente dibuja una superficie blanca sobre una cyan 
que está a su vez sobre una amarilla, permitiendo comprobar el efecto de 
borrar o dibujar cualquiera de estas superficies: 


10 
20 
Es] 
40 
so 
en 
70 


MODE a 
GOSUB 1000 

GOSuR 2000 

GOSuB 3000 

PRINT CHR$(23)CHR$ (0); 
MODE 1 

END 


999 REM tintas con los colores apropiados 
1088 INK 3,20 

1010 1NK 5,26 

1020 INK 6,26 

1030 1NkK 7,26 

1040 RETURN 

1999 REM dibujar tres rectangulos uno encima de 
Otro 
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2000 xamarillo=100:yamarillo=40:1adoamari110=300 
2010 xeyan=150: ycyan=80:1 adocyan=220 

2020 «blanco=200: yblarico=12%:1adoblanco=140 
202? REM opcion XOR 

2030 PRINT CHRS(Z3)CHRE (1) 5 

2040 color=lix=xamarillo:y=yamarillo:1edo=ladoam 
arillo 

2059 GOSUB 4000 

2068 color=2; 
2070 GOSuUB 4000 
2080 cola 
2098 GOSUB 4000 

2100 RETURN 

3000 WINDOW 1,20,25,25 

3009 REM peticion de comando 

3010 WHILE respuestascoe" 

3020 INPUT"Comando (a/c/b/e) ",respuestas 
3029 REM dibujo o borrado del amarillo 

1F respuesta$="a" THEN color=lsx=xamarill 
adoamarillo:GOSUB 4000 

3039 REM dibujo o borrado del cyan 

3040 1F respuestat="c" THEN color 
yanslado=ladocyan:50SUB 4000 
3049 REM dibujo o borrado del blanco 
3050 1F respuestas$="b" THEN color= 
yblancoslado=1 adoblanco: GOSU2 4000 
3990 MEND 

3900 RETURN 

4000 FOR xcord=x TO x«+lado STEP 4 
AQ10 MOVE xcord, y 

4020 DRAWR 0,lado,color 

4030 NEXT 

4040 RETURN 


ado=ladocyan 


“eyan:y=yeyan: 


blancory=yblanco: lado=ladoblanco 


Cyan: y=ye 


ax=xblanco: ys 


La línca 2020 solicita una letra “a”, *c” o *b” para borrar o dibujar la super- 
ficie amarilla, cyan o blanca (*e* es para terminar). Borrando o dibujan- 
do cualquiera de las superficies comprobará que no se alteran las demás. 
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1. Defina un barco con uno o más caracteres, junto con los caracteres 
auxiliares para desplazarlo con la opción XOR a lo largo de la 
pantalla. 

2. Mejore el programa para que el barco navegue en una masa de agua 
azul y por delante de un grupo de arrecifes blancos que sobresalgan del 
agua, 

3. Añada unas colinas de hierba que se vean detrás del barco. 

4. Ponga otro barco navegando en sentido contrario. Al cruzarse, uno 
pasará delante del otro. 

5. Cambie el orden de prioridad de los colores en el programa de las tres 
superficies rectangulares, de manera que el amarillo esté en primer pla- 
no y el blanco al fondo. Al comienzo, sólo deberá verse el rectángulo 
amarillo, y el blanco deberá aparccer únicamente después de borrar los 
otros dos. 

6. Añada un cuarto rectángulo de color diferente y que sea más cercano 
que los otros tres. El blanco quedará en un plano medio delantero y 
el cyan en un plano medio trasero. Ajuste tintas y colores para que 
cada uno pueda añadirse o borrarse sin alterar los demás. 
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En el capítulo 4 desarrollamos un programa que permitía al usuario dibujar 
en la pantalla y grabar el dibujo en un fichero para su utilización posterior 
Ahora vamos a perfeccionarlo con la inclusión de posibilidades tales como 
dibujo y coloreado de círculos, rectángulos y otras figuras. 


SELECCIÓN A PARTIR DE UN MENÚ 


El programa que teníamos se gobernaba exclusivamente pulsando deter- 
minadas teclas, Pero muchos programas de este tipo funcionan mediante 
selección a partir de un menú dibujado en la pantalla. Se trata de un di- 
bujo que representa las opciones que puede escoger el usuario: selección 
de una figura, selección de un color, escala para el dibujo, etc. (Véase 
la figura 6.1.) 


=== == Blalz 


Figura 6.1. Menú típico de un programa de dibujo. 


La selección se realiza llevando el cursor a la opción deseada. El orde- 
nador toma nota de la posición del cursor y lleva a cabo la opción indica- 
da en dicha posición. Este sistema hace más sencilla la elección, siempre 
que los dibujos del menú tengan un significado suficientemente claro. 
Con él no hace falta recordar qué tecla hay que pulsar para cambiar el 
color de una línea, dibujar una circunferencia, etc. 

Sin embargo, hay cosas que se controlarán mediante teclas (o con los 
mandos de juego, que es lo mismo). Las más evidentes son los movimien- 
tos del cursor y la fijación de un punto; nosotros dejaremos también para 
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el teclado la alternativa entre dibujar o no dibujar la línea. Para estas 
funciones, es fastidioso tener que perder el tiempo recorriendo el menú 
con el cursor, 

Nuestro nuevo programa incluye la opción de seleccionar el color de las 
líneas (entre ocho posibles, incluyendo el del fondo), y también la de di 
bujar rectas, circunferencias, triángulos o rectángulos. Otra opción es la 
de rellenar o no rellenar una figura cerrada. 

Para seleccionar la opción en el menú, hay que pulsar la barra espacia- 
dora (que se utiliza también para fijar los puntos) cuando el cursor se en- 
cuentra sobre la opción deseada. Como resultaría difícil recordar las op- 
ciones que se han elegido, éstas se representan mediante un carácter que 
aparece en la esquina inferior izquierda de la pantalla, que sirve para re- 
fejar la situación actual. El menú aparece en la parte baja de la pantalla, 
aunque esto es cuestión de gustos; hay quien prefiere que esté arriba o en 
un lateral. 

Vamos a comenzar por la parte básica del programa: 


10 MODE Q 
20 GOSUB 1009 
30 GOSUB 2000 


40 END 
1000 xant=320: yant=200 
1010 xexant:y=yant 


1020 colorvisibli 
1039 lineadib: 
1037 REM imprimir el simbolo de la esquina infer 
ior izquierda 

1038 REM para que se tenga a la vista la situaci 
on actual 

1039 REM info es una linea amarilla al principi 
o, gue es la opcion de entrada 

1040 infos=CHR$(47) 

1058 LOCATE 1,24 

1060 PRINT infos; 

1070 menux=S:menuy=24 

1079 REM definir simbolo para triangulo y para r 
elleno/no relleno 

1080 SYMBOL 240,0,2,6,10,18,34,46,254 

1070 SYMBOL 241,255,129,129,129,129,129,129,255 
1099 REM dibujar muestras de color de las tintas 
Da7 

1100 LOCATE menux, nenuy 
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1110 PRINT CHRB(241)7 
1120 FOR color=1 TO 7 

1130 PEN color 

1140 PRINT CHRS(143)5 

1150 NEXT 

1160 PEN 1 

1167 REM dibujar simbolos de linea, circunferenci 
ayrectangulo,triamgulo y no relleno 

1179 PRINT CHR$(47)CHR3(79) CHR$ (232) CHR$ (248) CHR 
$240; 

1190 PRINT CHRS(23)CHR$(1)5 

1908 RETURN 

199? REM cursor a la posicion ímicial 

2008 GOSUB 3008 

2007 REM repetir hasta que se pulse *e* 

2010 WHILE respuestat<>"e" 

2019 REM borrar el cursor con XDR 

2820 GOSUB 2000 

2029 REM leer la entrada del teclado 

2030 GOSUB 4008 

2039 REM dibujar el cursor 

2040 GOSUB 3008 

2780 WEND 

2910 RETURN 

2999 REM rutina de dibujo/borrado de lineas 
3000 PLOT x, y colorvisible 

3010 1F lineadib=0 THEN RETURN 

3020 DRAW xant,yant 

3030 RETURN 

3999 REM rutina para examinar el teclado y tomar 
la decision apropiada 

4000 respuesta$=LOWERS (INKEYS) 

ADIO IF respuestat="a" THEN y=y+2 

4020 1F respuesta$="2" THEN y=y-2 

4030 1F respuestat="," THEN x=x-4 

4040 1F respuestas="." THEN x=x+4 

4048 REM la barra de espacio fija el punto 

4049 REM si la coordenada y corresponde a la zon 
a de dibujo 

4050 1F respuesta$= 
lineadib=colorvisible 

4059 REM sí no, la barra de espacio selecciona o 
pcion del menu 


" AND y231 THEN GOSUB 5000: 
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4060 1F respuestad»" " AND y<32 THEN GOSUB 6008 
4069 REN conmutar entre si/no el dibujo de la 14 
nea 

4070 1F respuestas="1" THEN IF lineadib=0 TREN 1 
ineadib=colorvisible ELSE lineadib=2 

4900 RETURN 

4999 REM dibujar de manera permanente una linea 
5000 PRINT CHRS(23)CHR4 (0) ; 

5010 BOSUB 3090 

5020 PRINT CHR$(23)CHR$ (1); 

5030 xant=x: yantey 

5900 RETURN 

5997 REM elegir opcion del menuz se rechaza sí n 
O esta en el menu 

$002 1F *<128 OR x3543 OR y<16 THEN RETURN 

6019 SOUND 7,480 

$019 REM x<384 significa que la opcion es un cam 
bia de color 

$020 1F x£384 THEN colorvisible=TEST(x, y): G0SUB 
7000: RETURN 

$029 REM deducir opcion segun sea la coordenada 
Xx 

6030 1F x<416 THEN info: 
URN S 

6090 1F 16448 THEN infos=CHR$ (79) : GOSUB 7000:RET 
URN 

$050 1F x<480 THEN infos=CHRS (232) :GDSUB 7000:RE 
TURN 

$060 1F xc512 THEN infos=CHR$ (240) :GOSUB 7000:RE 
TURN 

6067 REM debe ser la opcion de conmútar relleno/ 
no relleno 

6070 GOSUB 1500 

£000 RETURN 

7008 PEN colorvisible 

7010 LOCATE 1,24 

7920 PRINT infos 

7030 RETURN 

15000 REM a completar despues 

15010 RETURN 


CHR$ (47) :GOSUB 7000: RET 
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Esta parte permite ya elegir las opciones, aunque, por el momento, sólo 
es operativa la posibilidad de dibujar rectas de diferentes colores. 

El ordenador considera que se desea elegir una opción, en lugar de fijar 
un punto, cuando la coordenada Y del cursor es menor que 32 en el mo- 
mento de pulsar la barra espaciadora. Las líneas 4050 y 4060 podrían 
combinarse en una sola sentencia IF ..... THEN .... ELSE, pero las hemos 
separado para mayor claridad. La subrutina 6000 comprueba si la coor- 
denada X corresponde al área del menú y realiza la elección dependiendo 
del valor de la coordenada. La 7000 dibuja el carácter info$ en la esquina 
inferior izquierda de la pantalla; es el carácter que sirve para recordar las 
opciones elegidas y cambia al seleccionar una nueva opción. 

Añadir el dibujo de figuras concretas no presenta grandes problemas, 
pero vamos a describir cuidadosamente la forma en que se implementan 
estas opciones. Como ya vimos en el capítulo 3, los dibujos de circunfe- 
rencias son lentos; no es aconsejable que la opción se lleve a cabo. dibujan- 
do y borrando las circunferencia potenciales (con XOR), salvo que el 
programa quiera hacerse insoportable por su lentitud. Lo que hemos 


Figura 6.2. Un rectángulo queda identificado por dos vértices opuestos. 
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hecho es lo siguiente; cuando se ha seleccionado la opción circunferencia, 
el primer punto que se fije será el centro, y el siguiente, un punto de la 
circunferencia; por lo tanto, el radio de la circunferencia será la distancia 
entre ambos puntos. 

Para las opciones triángulo y rectángulo sería posible dibujar y borrar 
varias veces la figura, ya que intervienen pocas líneas. Las dos opciones 
trabajan de forma algo diferente. Cuando se han fijado dos vértices del 
iriángulo, el tercero puede estar en cualquier parte. Sin embargo, si se 
fija un vértice del rectángulo de lados paralelos a los bordes de la pan: 
talla, el resto de la figura queda perfectamente determinada en cuanto 
se conoce el vértice opuesto, o sea, una diagonal completa. Luego, para 
los rectángulos, habrá que fijar dos puntos que representarán vértices 
opuestos. 

Cuando se está definiendo un triángulo o un rectángulo, el problema 
de la fijación de los puntos necesarios se resuelve como en el caso de rec- 
tas, pero el dibujo y borrado sucesivo de la figura no es lo mismo, ya que 
hay que trabajar con varias líneas a la vez; por eso no sirve la rutina ante- 


* — vérico fijado 
O — vénica mo fiado 
—-> — líneas mo fijedas. 
— - líneas fijadas 


Figura 6.3. Mientras no se fije el tercer vértice de un triángulo, dos de 
los lados quedarán indeterminados. 


rior en este caso. Nosotros hemos hecho que los triángulos y rectángulos 
no se dibujen mientras no estén fijados todos los puntos necesarios, Esto 
es menos atractivo que ir dibujando el triángulo o rectángulo potencial 
hasta llegar al que se desea, pero esta modalidad podrá realizarla el lector 
como ejercicio. 


4999 


REM comprobacion de la eleccion circ/rectan 


gulo/triangulo 


soe 
=001 
5002 
5007 
5010 
5020 
5030 
5900 
5999 


PRINT CHR$ (23)CHRS (0) ; 
IF círc>0 THEN GOSUB 8000 
IF rectangulo)2 THEN GOSUB 9000 
IF triangulo>0 THEN GOSUB 10008 
GOSuB 3000 

PRINT CHAS (23)CHRS (103 
nantes: yent=y 

RETURN 

REM elegir opcion del men 


j se rechaza si n 


o esta en el menu 


¿ado 
4010 
6a7 


1F 2128 OR 3543 OR y<16 THEN RETURN 
SOUND 7,400 
REM 0384 significa que la opcion es un cam 


bio de color 


6020 


7000: 


4029 
4079 
URN 

4040 


4esa 


ctangul: 


enso 


IF y<384 THEN colorvisible=TEST (:,y) +605UB 
ETURN 
REM deducir opcion segun sea la coordenada 


IF 42416 THEN infos=CHR$(47):G0SUB 7000: RET 


1F 2498 THEN info$=CHR* (79) :G0SUB 700: cir 


RETURN 


1F x<480 THEN infos=CHR$(232):GOSUB 7000: re 
RETURN 
1F «<312 THEN infot=CHR4 (240) :G0SUD 7002: tr 


iangulo=1:RETURN 


4057 


REM debe ser la opcion de conmutar relleno/ 


no relleno 


6078 
Lasa 
7000 
7010 
7020 
7025 


GOSUE 15000 
RETURN 

PEN colorvisible 
LOCATE 1,24 

PRINT infos 

IF «<304 THEN RETURN 
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7029 REM opcion anulada; nueva eleccion 
7030 circ=0 
7040 triangulo=0 
7050 rectangulo=1 
7060 RETURN 

7999 REM dibujo de la circunferencia: se requiel 
e el centro y un punto de la circunferencia 
000 1F circ=1 THEN circ=2:RETURN 

8009 REM ahora tenemos los dos puntos y podenos 
calcular el radio 

BOLO xd=ABS (x—xant) : yd=ABS (y-yant) 

8820 radio=S0R (xdexd+ydryd) 

Saa MOVE xXant,yant+radio 

8040 FOR angulo=0 TO 2*P1 STEP P1/60 

B058 DRAW xant+radio*SIN(angulo),yant+radioxcost 
angulo) 

B06D NEXT 

0070 DRAW xant,yanteradio 

2080 PLOT xant,yant,0 

8089 REM poner el indicador de circ a 1 para la 
siguiente circunferencia 

B098 cire=1 

8100 RETURN 

8999 REM rutina de dibujo del rectangulo; se req 
uieren dos vertices 

90m 1F rectangulo=1 THEN rectangulo=2:RETURN 
9010 MOVE xant,yant 

9020 DRAWR x=xant,Q,colorvisible 

9030 DRAWR 0,y-yant 

9048 DRAWR xant=x,0 

7050 DRAWR 0, yant-y 

9059 REM poner el indicador rectangulo a 1 para 
el rectangulo siguiente 

9060 rectangul 
9070 RETURN 
9999 REM rutina de dibujo del triangulo; se nece 
sitan los tres vertices 

10000 1F triangulo=1 THEN triamgulo=Z2sx1=xi yl 
RETURN 

10010 1F triangulo=2 THEN triangulo=3:RETURN 
10029 MOVE «, y 

10030 DRAW xant,yant,colorvisible 

10040 DRAW x1,y1 
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10050 DRAN x, y 

1005? REM poner el indicador triangulo a 1 para 
el siguiente triangulo 

10060 triangulo=i 

10070 RETURN 

15000 REM a completar despues 

15018 RETURN 


La selección de las opciones circunferencia, rectángulo o triángulo se 
manifiesta porque pone a 1 el correspondiente indicador (la variable cuyo 
nombre coincide con la opción). La rutina 7000 sirve para que los otros 
indicadores queden a 0; en otro caso se dibujarían dos o tres figuras a la 
vez. La línea 7025 se incluye para que no se pongan los indicadores a 0 
cuando la opción ha sido simplemente de cambio de color. Las líneas 
5001 a 5003 se encargan de enviar el programa a la rutina apropiada para 
la realización de la correspondiente figura. ” 

Las subrutinas 8000, 9000 y 10000, que son las encargadas de realizar es- 
tos dibujos, tienen algo en común: si el número de puntos seleccionados no 
completa los que necesita la figura, la rutina selimita a incrementar el indi- 
cador, pasándose a la selección de nuevos puntos. Esto es lo que hacen las 
líneas 8000, 9000, 10000 y 10010. El indicador sirve así al mismo tiempo 
para contar los puntos fijados para la figura. Dos puntos bastan para la 
circunferencia o el rectángulo, pero la opción triángulo necesita tres. 

Cuando los puntos fijados son suficientes, se dibuja la figura y elindica- 
dor se carga con el valor 1. Esto significa que, si se ha escogido una op- 
ción como la circunferencia, por ejemplo, esta opción continuará en pie 
mientras no se elija otra explícitamente en el menú. Si no se tiene esto en 
cuenta, es fácil que se obtengan resultados inesperados al tratar de dibujar 
una recta mientras se encuentra activa la opción triángulo o rectángulo, 

Por la forma en que está estructurado el programa, permite añadir sin 
dificultad otras opciones, tales como dibujo de elipses, rombos, etc. 


Ejercicios 


1. Aumente la gama de colores hasta 10 colores elegidos por usted. 

2. Introduzca en el menú la opción de borrar toda la zona de pantalla de- 
dicada al dibujo. Esto debe hacer que toda la pantalla tome el color 
del fondo. 

3. Añada una nueva opción que permita dibujar arcos. Un arco deberá 
quedar especificado por su centro y por los dos puntos de sus 
extremos. 
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RELLENADO DE COLOR 


Pasaremos ahora a la rutina de rellenado o sombreado de las figuras ce- 
rradas. El Amstrad dispone de un comando que permite rellenar de un 
color grandes superficies; es el comando WINDOW. Lamentablemente, 
estas áreas son forzosamente rectangulares y definidas mediante coorde- 
nadas de texto, por lo que tendremos que elaborar nuestro propio método 
de rellenar una superficie con color. (Esto se refiere al modelo CPC464; 
en los siguientes modelos se dispone de la orden FILL, con la que se pue- 
den rellenar recintos cualesquiera.) 

Es evidente que, para rellenar completamente el interior de una figura, 
deberemos examinar cada uno de los puntos que están en su interior. 

Dividiremos el problema en varias etapas, elaborando primero una ru- 
tina que rellene los puntos de un segmento de recta, y extendiéndola luego 
al caso de superficies. 

Supongamos que hemos elegido un punto cualquiera del interior de 
nuestra figura. Un proceso de dos etapas nos permitirá rellenar de color 
todos los puntos de su misma fila. Se examina primero el punto que se 
encuentra a su derecha con la instrucción TEST. Si es del color del fon- 
do, el punto se dibuja del color deseado; este punto se convierte ahora en 
el nuevo punto de arranque. El proceso se repite hasta que se encuentre 
un punto que no tenga el color del fondo, lo que significará que se ha al- 
canzado el borde de la figura, Este proceso está esquematizado en la fi- 
gura 6.4. 


o 


o 


a 
dirección de avance 
'O- punto de arranque 


9 - punto dibujedo 
9 punto límite que no es del color del fondo 


Figura 6.4. 


Por este procedimiento se une el punto elegido con el borde de la figura 
mediante una línea horizontal. Los restantes puntos a rellenar se locali- 
zan por el mismo procedimiento, pero avanzando ahora hacia la derecha. 
La siguiente rutina rellena de esta manera unas cuantas líneas: 
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1 REM este es un programa independiente 
2 REM pero las subrutinas 

3 REM están preparadas para ser incorporadas al 

programa principal 

10 MODE 

19 REM dibujo de un triangulo para que sirva de 

ejemplo 

20 MOVE 200,100 

30 DRAW 450,350 

40 DRAW 340,400 

SO DRAW 200,100 

54 REM se eligen 10 puntos al azar para rellenar 
rectas partiendo de ellos 

55 FOR con=1 TO 10 

59 REM punto al azar dentro del triangulo 

60 rand=INT(RND (1)*232):xarranque=210+rand+yarra 
nque=1 10+rand 

70 colorvisible=1:yrell=yarranque 

79 REM relleno a la izquierda del punto 

80 xinc=-4:xrell=xarranque 

70 GOSUE 18000 

98 REM ahora a la derecha, pero no se empieza po 


99 REM el propio punto sino por el que esta a su 
izquierda 

100 xinc=4:xrel 
110 GOSUB 18000 
120 NEXT 

130 END 

17999 REM comprobar punto por.punto a izquierda 
o derecha 

18000 t=0:WHILE t=0 

18010 xrell=xrell+xinc 

18020 t=TEST(xrell,yrell) 

18028 REM si t=2 es punto es del color del fondo 
18029 REM y hay que dibujarlo 

18030 1F t=8 THEN PLOT xrell,yrell,colorvisible 
18040 WEND 

18050 RETURN 


“arranque-4 
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La subrutina 18000 es invocada dos veces: una con incrementos de —4 
para la coordenada X (avance hacia la izquierda) y otra con incrementos 
+4 (avance hacia la derecha). (Observe que la cuantía del incremento 
dependerá del modo de pantalla; en el modo 1 los incrementos serían 
de +2.) 

Compruebe que esta rutina funciona en cualquier caso, haciéndola tra- 
bajar con otra figura, pero cuidando de que las coordenadas xarranque 
e yarranque scan de un punto inferior a la figura. 

¿Qué ocurre si el punto inicial está fuera de la figura? Ahora el coman- 
do TEST va a ser insuficiente por sí mismo. Yendo hacia la izquierda, 
podemos llegar perfectamente fuera de la pantalla; el comando TEST 
considera estos puntos exteriores a la pantalla como si tuvieran el color 
del fondo. En consecuencia no terminaríamos nunca de rellenar, 

Hay varias formas de solucionar este inconveniente. Por ejemplo, po- 
demos hacer comprobaciones sobre los valores que va tomando la varia- 
ble xa 


59 REM puntos dentro y fuera del triangulo 
60 rand=INT(RND(1)*230) :xarranque=150+trand:yarra 
nque=i1B+rand E 

17999 REM comprobar punto por punto a izquierda 
o derecha 

18000 t=0:WHILE t=0 AND xrell>2 AND xrel1<639 


Esto, sin embargo, requiere muchas comprobaciones y hace bastante más 
lento el programa. Otra posibilidad más rápida es construir un borde de 
color alrededor de la pantalla; al llegar al borde la rutina encontraría así 
un punto que no es del color del fondo, suspendiendo entonces el proceso 
de relleno. 

Nuestra rutina para rellenar líneas ya está completa. ¿Cómo extender- 
la para que rellene una figura plana? Una forma es examinar los puntos 
que están encima y debajo de los de la línea que se va rellenando; si se 
encuentran puntos del color del fondo, sus coordenadas pueden almace- 
únarse para servir posteriormente de puntos de arranque en el rellenado de 
nuevas líneas. Esto es lo que se representa en la figura 6.5. 

Parece en principio que sólo deberíamos ir comprobando puntos hasta 
encontrar uno del color del fondo. Pero ciertas formas exigen la compro- 
bación de todos los puntos, como ocurre con la de la figura 6.6. En figu- 
ras como ésta, sólo quedarán rellenos ciertos trozos de las partes vertica- 
les si no se examinasen todos los puntos. Comprobar todos los puntos 
consume mucho tiempo, por lo que deberemos elegir entre velocidad y 
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2eco000o 
20000000 Las coordenadas de estos puntos se van 
vcescrrco. almacenando en una matriz para. 
e00000000 olorearlos más tarde 


O punto del color del fondo. 
— punto dibujado 
0 — punto límite que no es del color del fondo 


Figura 6. 


—-- — la última linea tratada. 
1 — estos puntos de la línea de encima serán rllanados 
2 — estos puntos de la linea de encima ya están coloreados. 
3 — estos puntos de la línea de encima están sn colorear y quedarán asi salvo que la compro- 
bación se lleve a cabo para todos los puntos. 


Figura 6.6. 


perfección, entre rapidez con eventuales fallos o lentitud con la seguridad 
de un buen rellenado. 
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Una rutina como la que sigue es imperfecta, pero no obstante funciona 
bien con buena parte de las figuras usuales examinando sólo 4 puntos: 


10 MODE a 
14 REM matrices para las coordenadas de los punt 
os no coloreados 

15 DIM x (300), y (308) 

19 REM aquí pude icorporar su propia figura de p 
rueba 

20 xant=150:yant=150 

30 MOVE xant,yant 

40 DRAWR 100,0 

SO DRAWR 0,108 

60 DRAWR -100,0 

70 DRAWR 8,-108 

78 REM x e y son las coordenadas de un punto 

79 REM de dentro de la figura 

80 x=200: y=200 

90 colorvisible=1 

100 GOSUB 15000 

110 PRINT CHRS(23)CHRS (0) y 

999 END 

15000 
15010 
15020 
15030 PRINT CHR$ (23) CHñe (0) 5 

15048 PLOT x,y,0 

15050 GOSUB 16900 

15050 GOSUB 17200 

15070 PRINT CHR$ (23) CHR$ (1) 5 

15080 1F círc>d OR rectangulo>0 OR triangulo >9 
THEN PLOT x,y,colorvisible 

15090 RETURN 

15997 REM comprobar el color del punto 

16000 xactual=xrelliyactual=yrell 

16010 1F TEST(xrell,yrell)<>0 THEN RETURN 

16020 xine=-4 

16029 REM comprobacion del color de los puntos d 
e la izquierda 

16030 GOSUB 16000 

16040 xrell=xactual-4:yrell=yactual 

16049 REM comprobacion del color de los puntos d 
e la derecha 
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16050 xinc=4 
16060 GOSUB 18000 

16070 RETURN 

16999 REM se toman puntos de la lista mientr. 
aya 

17000 WHILE comienzo<>(final+1) MOD 309 
17018 xrell=x(comienzo): yrell=y (comienzo) 
17020 comienzo=(comienzo+1) MOD 320 

17030 GOSUB 16000 

17048 WEND 

17050 RETURN 

17999 REM comprobacion punto por punto a izquier 
da o derecha 
18000 t=0:WHILE t: 
19010 «rell=rell+rine 

18020 t=TEST(xrell,yrell) 

18030 1F t=0 THEN PLOT xrell,yrell,colorvisible 
18040 WEND 

18050 xrell=xrell-xincryrell=yrell-2 

18059 REM sí el punto de la linea de abajo no es 
ta coloreado, se almacena 

18068 IF TEST(xrell,yrell)=0 THEN GOSUB 19000 
18079 yrell=yrell+4 

18079 REM si el punto de la linea de arriba no e 
sta coloreado, se almacena 

18080 1F TEST(«rell,yrell)=8 THEN GOSUB 19000 
18090 RETURN 

18999 REM almacenamiento de las coordenadas del 
punto no coloreado 

19000 final=(final+1) MOD 300 

19010 x(final)=xrelliy (final) =yrell 

19020 RETURN 


Pruebe el programa con diferentes figuras. Los puntos que son examina- 
dos son los que se encuentran en diagonal encima y debajo de los puntos 
finales de la línea que se está tratando, Las coordenadas de los nuevos 
puntos a rellenar se almacenan en las matrices x(-)e yl ). Las variables 
puntero comienzo y final sirven para indicar posiciones en estas matri- 
ces; comienzo indica el elemento de las matrices que contiene las coorde- 
nadas del siguiente punto del que arrancará el proceso; final indica el pri- 
mer elemento de la matriz que está todavía libre. 

Por ejemplo, después de rellenar la primera línea, es muy probable que 
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los cuatro puntos que se examinan en las líneas superior e inferior sean 
del color del fondo; sus coordenadas se almacenarán en x() e yl ). La 
subrutina 17000 considera sucesivamente cada punto de los que están al- 
macenados en la matriz, y la 16000 examina los puntos que están a la i 
quierda y a la derecha del punto elegido. Los puntos se colorean con la 
subrutina 18000 (línea 18030) mientras no se encuentre uno del color del 
fondo. Las líneas 18050-18080 comprueban el color de los puntos situa- 
dos en diagonal respecto al punto límite, y la subrutina 19000 los almace- 
na en las matrices si son del color del fondo. 


9- puntos límite 
0 - puntos dibujados sn la línea 
— puntos cuyo color se comprueba 


Figura 6.7. 


Las líneas 17000 y 19000 llevan el operador MOD porque las matrices 
se tratan en forma circular. No sabemos a priori cuantos puntos deberá 
almacenar el ordenador, y 300 parece un límite razonable. Si la figura es 
grande y complicada habrá que almacenar más puntos que éstos. Lo me- 
jor entonces es no perder los últimos puntos, sino almacenarlos en los lu- 
gares correspondientes a puntos que ya habrán sido seguramente tra- 
tados, 

Esta rutina consigue rellenar un 90% de la superficie de los círculos, pe- 
ro los polos superior e inferior no los rellena debido a que los arcos de 
dicha zona están formados por pequeños segmentos horizontales. Para 
nuestra rutina esto causa el mismo efecto que una línea horizontal com- 
pleta. Se puede resolver este problema, con un pequeño deterioro en la 
velocidad, examinando dos puntos más: 


19 REM rectangulo con un brazo vertical 
20 xact=150:yact=150 

30 MOVE xact,yact 

40. DRAUR 100,8 

50 DRAWR 0,190 

55 DRAWR -10,0 

56 DRAWR 0,50 
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57 DRAWR -60,0 
58 DRAWR 0,-50 

£0 DRAWR -30,0 

70 DRAWR 0,-100 

16000 xactual=xrell:yactual=yrell 

16010 1F TEST(xrell,yrell)<>8 THEN RETURN 

16020 xinc=-4 

16029 REM comprobacion del color de los puntos d 
e la izquierda 

16032 GOSUB 18000 

16031 REM coordenadas del extremo izquierdo de 1 
a linea 

16032 xizq=krell 

16848 xrell=ractual-4:yrell=yactual 

16049 REM comprobacion del color de los puntos d 
e la derecha 

16050 xinc=4 

16058 GOSUD 10008 

16061 REM coordenadas del extreno derecho de la 
línea 

16062 xder=xrell 

16063 REM calcular el punto medio de la linea 
16064 REM y comprobar el color de los puntos de 
arriba y abajo 

16065 xrell=txizqtxder)/2:yrell=yactual-2 

16066 IF TEST(xrell,yrell)=0 THEN GOSUB 19000 
16067 yrell=yactual+2 

16068 IF TEST(xrell,yrell)=0 THEN GOSUR 19000 
16069 REM no es perfecto pero es rapido 

16070 RETURN 


De esta manera, los círculos se rellenan sin problemas; sólo hay fallos en 
figuras con trozos de forma vertical unidos al trazo principal por una rec- 
ta horizontal. La posición del punto inicial influye mucho sobre cuál será 
la zona que será coloreada. Si se produce un fracaso en rellenar una zona 
desde un punto, el problema puede quedar solucionado al disponer de un 
punto alternativo. Por eso, nuestra rutina parece representar un buen 
equilibrio entre velocidad y perfección. Se puede incorporar al programa 
principal de la manera siguiente: 
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15 DIM « (300), y (300) 
5031 1F rell=1 AND circsD AND rectangulo=0 AND t 
riangulo=0 THEN GOSUB 15000 

6069 REM debe ser la opcion rellenar/no rellenar 
6070 1F rell=1 THEN rell=0:rell$=CHRé (211) ELSE 
rell=tirel1$=CHR$ (233) 

6080 LOCATE 17,24 

6090 PRINT rell$; 

6100 RETURN 
8091 IF rell 
9061 1F rel 
SUB 15000 
10861 1F rel 
1)/3:G0SUB 15000 

10071 REM anadir ademas la rutina de rellenar 
10072 desde ls linea 15000 a la 19820 


THEN s=want: y=yant:GO0SUB 15000 
THEN x= (etxant) /2: y= (y+yant)/2:60 


THEN =Gotxantex 10/31 y=(ytyant+y 


Esta rutina actúa en dos formas diferentes. Si la opción de rellenar está 
presente cuando se activa una de las opciones círculo, triángulo o rectán- 
gulo, la correspondiente figura se rellenará al mismo tiempo que se dibu- 
ja; el relleno comienza en un punto elegido por el ordenador en las líneas 
8091, 9061 y 10061. Sila opción de rellenar está activa sin que lo esté nin- 
guna de las tres anteriores, la rutina actúa a partir de la línea 5031 y sirve 
para rellenar la zona en cuyo interior se encuentre el primer punto que se 
fije. Por lo tanto, si se desea dibujar una recta, habrá que desactivar la 
opción de rellenar, pues en caso contrario el programa interpretará el 
punto que se fije como punto inicial de rellenado y comenzará a llenar la 
pantalla con el color fijado. 


Ejercicios 


1. Como el rellenado de figuras se hace dibujando puntos individuales, 
es fácil rellenar utilizando combinaciones de colores. Para ello basta 
con actuar sobre el color que se emplea en la línea 18030. Añada al 
menú la opción de rellenar una figura con una mezcla de dos colores 
elegidos entre los del menú. 

2. Un inconveniente del programa es que el rellenado se detiene al encon- 
trar un punto de cualquier color que no sea el del fondo. Esto hace 
imposible rellenar figuras dibujadas sobre áreas ya coloreadas. Así, 
por ejemplo, no se podría dibujar una puerta azul sobre una casa pin- 
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tada de rojo. Cambie el programa para que el rellenado se detenga so- 
lamente al encontrarse un punto de su propio color. 

3. Modifique la rutina de rellenado, en la forma que ya hemos indicado, 
para que trabaje perfectamente con cualquier figura. 


CÓMO ARCHIVAR SU OBRA MAESTRA 


Ahora que sabemos realizar dibujos de colores, puede ser interesante po- 
der archivarlos. En el capítulo 4 lo que hacíamos cra almacenar las coor- 
denadas de los puntos y otras informaciones en matrices que posterior= 
mente se grababan en un fichero. Ahora podemos hacer lo mismo, aun- 
que el programa requerirá modificaciones. Necesitaremos conocer, por 
ejemplo, si los puntos han servido para la opción circunferencia o la 0p- 
ción rectángulo, o si una figura va o no rellena. 

Una posible alternativa consiste en grabar una copia de toda la pant 
lla, tal como está en un momento determinado. Si posteriormente quere- 
mos ver el dibujo o mejorarlo, basta que lo carguemos de nuevo en la 
pantalla y que continuemos dibujando mediante las opciones del menú. 

Este sistema tiene la ventaja de que puede ser implementardo sin necesi- 
dad de alterar la parte del programa que ya tenemos. 

El almacenamiento en un fichero de la pantalla es sólo un ejemplo par- 
ticular de la posibilidad que tiene el Amstrad de guardar una copia de 
cualquier parte de la memoria. Como ya hemos dicho en otra ocasión, 
la pantalla no es más que una representación de una zona de memoria 
RAM. Haciendo una copia de esta zona, tendremos en cinta una copia 
de la pantalla, 

El Amstrad necesita algunas informaciones para grabar una copia de 
una zona de la memoria: la posición en que comienza la zona y su tamaño. 
(en bytes). Esta información también queda grabada, por lo que no se 
necesita recordarla cuando el fichero vuelve a cargarse en el ordenador. 

Las rutinas de grabación y carga se activan pulsando las teclas “o* (de 
“output”) para grabación e 1 (de 'input”) para carga: 


4080 1F respuestat="i" THEN GOSUB 11090 
4090 1F respuestat="0" THEN GOSUB 12000 

10999 REM abrir una ventana que no estropee el d 
ibujo 

11020 WINDON 1,20,24,251 PEN 4 

11010 PRINT "Para carga" 

11020 INPUT "nombre: “¿dibujos 

11830 LOAD dibujos 
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11040 CLS 
11049 REM de nuevo la pantalla nornal 
11050 WINDOW 1,20,1,25 

11060 GOSUB 1000 

11078 RETURN 

2000 WINDOW 1,20,24,25:PEN 1 

12010 PRINT "Para grabacion" 

12020 INPUT "nombre: "dibujos 

12029 REM almacenamiento de la pantalla 
12039 SAVE dibujot,b,£C000,83FCE 

12040 CLS 

12050 WINDOW 1,20,1,25 

12055 rell=0:G0SUB 7030 

12068 GOSUB 1000 

12070 RETURN 


La subrutina 12000 graba en cinta un fichero con los datos de la pantalla. 

Es importante que el dibujo de la pantalla no se estropee con los mensa- 
jes que deben escribirse; por eso se reserva una ventana en la parte baja 
de la pantalla que hace desaparecer temporalmente el menú. La línea 12030 
graba el fichero: B indica un fichero de tipo binario (son los que hay que 
emplear para grabar zonas de memoria), £:C000 es la dirección hexadeci- 
mal del comienzo de la 20na de memoria que corresponde a la pantalla 
y 83FCF su longitud en bytes. Cuando el fichero ha sido grabado, el me- 
hú reaparece y el programa continúa. La subrutina 11000 carga un dibu- 
Jo; es similar a la rutina de grabación, salvo por el hecho de que el coman- 
do LOAD de la línea 11030 es mucho más simple, Cargar un dibujo es 
muy espectacular: el dibujo no se carga comenzando por arriba, como se 
Podría pensar, sino en forma de bandas horizontales que se van haciendo 
cada vez más gruesas hasta cubrir la pantalla. Esto refleja la complejidad 
de la representación de la pantalla en la memoria, donde posiciones suce- 
sivas de la memoria pueden corresponder a zonas distantes de la pantalla. 


Ejercicios 


1. Añada un “zoom” a las opciones posibles, de manera que el dibujo pue- 
da ser cambiado a una escala diferente. (Para mejorar la velocidad 
puede venir bien no rellenar las figuras.) 

2. Añada una rutina que permita teclear un texto y colocarlo en la posi- 
ción deseada de la pantalla. 

3. Modifique el programa para que admita cualquiera de los colores no 
parpadeantes del modo 0. 
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Transformaciones 


TRANSFORMACIONES DE UNA FIGURA 


En otros capítulos hemos estudiado la forma de desplazar puntos en la 
pantalla para situarlos en la posición más adecuada. Ahora vamos a ver 
cómo se desplaza, no un simple punto, sino toda una figura. Además, 
el movimiento no tiene por qué realizarse necesariamente a base de des- 
plazamientos sucesivos de un punto de longitud. Es frecuente tener que 
realizar una serie de transformaciones de una figura. 

Ya sabemos hacer la más sencilla de las transformaciones, la traslación. 
Consiste en el movimiento en una dirección. Hasta ahora hemos trasla- 
dado puntos y caracteres, pero es fácil adaptar lo que ya hemos hecho pa- 
ra trasladar figuras enteras: 


10 MODE 2 
20 DIM x(102),y(100),2 (100) 

69 REM cargar la figura 

78 GOSUB 1000 

74 REM modalidad grafica 

75 PRINT CHRS(23)0HR$ (1) 

79 REM dibujar la figura 

80 GOSUB 2008 

89 REM opcion 

90 GOSUB 3000 

B00 MODE 1 

928 END 

999 REM lectura de los datos de la figura 
1200 READ numdelin 

1010 FOR cons0 TO nundelin 

1028 READ (con), y(con),1 (con) 

1038 NEXT 

1040 RETURN 

1498 REM en nuestro ejemplo es un hexagono 
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1499 REN sustituya la figura y sus datos por los 
que usted desee 

1500 DATA 6,320,100,0,400,100,1,490,198,1,400,28 
0,1,300,280,1,218,190,1,300,100,1 

1999 REM rutina de dibujar/borrar 

2000 MOVE x(0),y(0) 

2010 FOR con=1 TO numdelin 

2020 1F 1(con)>0 THEN DRAW x(con),y(con) ELSE MO 
VE x(con), y (con) 

2030 NEXT 

2040 RETURN 

2993 REM rutina de seleccion de la option; *e 
ara terninar 

2994 REN +? para la traslación 

3008 respuestas="" 

3010 WHILE respuestasc>"e" 

3020 respuestas=LOWERS (INKEYS) 

3030 1F respuestas="t" THEN GOSUB 4000 

3508 WEND 

3518 RETURN 

3997 REM rutina de traslación 

3998 REM la traslación se realiza con las teclas 
alzlrla y 

3999 REM la figura trasladada se fija pulsando 1 
a tocla de espacio 

4000 WHILE respuestasc)" " 

4005 respuesta$=LOWERS (INKEVS) 

AD10 xinc=0:yini 
4020 1F respuestas="a" THEN yinc=2rrespuesta$= 
*GOSUB 4500 

4030 IF respuestas="z 
GOSUB 4500 

2040 1F respuestas: 
":GOSUB 4500 

2050 1F respuestas="." THEN xine=4: respuestas 
="":GOSUB 4500 
4100 HEND 

4110 respuestas= 
4120 RETURN 
4497 REM efectua la traslación 
4502 GOSUB 2000 

4519 FOR con=0 TO nundelin 
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THEN yinc=-2:respuestas=" 


THEN xinc=-4: respuestas=" 
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4520 x=x (con) + 
my 

4530 NEXT 
4542 GOSUB 2000 

4350 RETURN 

9999 REM cambio de datos por traslacion 
10000 x=xtxine:y=y+yine 

10010 RETURN 


-y (con) + GOSUB 10208: x (con) =x3 y (co 


La traslación es la transformación más sencilla de programar, pero la téc- 
nica que se utiliza no sirve para otras transformaciones, como puede ser 
la rotación de una figura. Para una serie de transformaciones, el método 
más generalizado es el empleo de matrices. 


Transformaciones matriciales 


Podemos girar, alargar o reflejar cualquier figura multiplicando las coor- 
denadas de todos sus puntos por una matriz apropiada. Vamos a dar un 
breve resumen de la multiplicación de matrices, aunque no es esencial su 
comprensión para la simple utilización de los programas que siguen. 

Para multiplicar dos matrices se multiplican los números de cada fila 
de la primera matriz por los de cada columna de la segunda, tal como se 
explica en la figura 7.1, y se van sumando los productos obtenidos. Estas 
sumas de productos son los números que forman parte de la matriz que 
constituye el resultado. Las matrices pueden ser de tamaños diferentes a 
los del ejemplo, pero, para calcular la transformación de un punto de una 
figura, son estos tamaños de matrices los que interesan. Esto se debe a 
que los puntos vienen dados por dos coordenadas. 


24 
3 al 5 


(Bx2+5x1 3x44+5x2) 
=1 2) 


Figura 7.1. 


Una serie de matrices de 2x2 elementos sirve, por ejemplo, para girar 
un punto 10 grados en el sentido de las agujas del reloj, o para alargar 
una figura en un factor de 1.5, etc. El resultado de multiplicar una matriz 
de coordenadas por una matriz de transformación es, como hemos visto 
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en el ejemplo, otra matriz de coordenadas. Si la matriz que resulta en el 
ejemplo la multiplicamos por la matriz de una nueva transformación, 0b- 
tenemos el resultado de aplicar a un punto las dos transformaciones suce- 
sivas; esto es lo que hemos hecho en la figura 7.2. 


2 


a ais ira 


= (77 66 


Figura 7,2. 


De hecho, hay una manera de agilizar el proceso. Se pueden multipli- 
Car primero las dos matrices de transformación y utilizar el resultado para 
transformar el punto inicial. El resultado es el mismo que el de las dos 
transformaciones sucesivas, como muestra la figura 7.3. 


2D (rra 2ezaaa 
123 NI 1423 1x242x2, 
(maz 
ei. 


14 12 


=(77 66) 


Figura 7.3. 


El principal inconveniente que tiene el método matricial es que no se 
Puede representar la traslación utilizando una matriz 2x2, lo que hace 
que este tratamiento no pueda ser totalmente general. Ya hemos visto 
que es posible reducir transformaciones compuestas a una sóla matriz, 
pero las traslaciones quedan fuera del sistema. Utilizando matrices 3x 3 
€s posible representar las transformaciones, incluyendo ahora las trasla- 
ciones. 

Como ya estamos acostumbrados a manejar la traslación de otra mane- 
ra, vamos a quedarnos con las matrices 2x 2, aunque tengamos que tratar 
la traslación de forma diferente. 
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E E O 


El riángulo 1 se convierte en el 2 al girarlo 30 grados en el sentido delas agujas del reloj: 


A UE 
E bete 20) =(85 15 
A lso 37) 


El triángulo 1 se convierte en el 3 al girarlo 20 grados en sentido contrario a las agujas 
del reloj: 


En general, la rotación de $ grados en el sentido del reloj viene dada por; 


cosó sen” 
e ios 


a 
lt oil 


Figura 7.4, 
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Rotación 


Para la rotación de un determinado ángulo hay dos matrices posibles, se- 
gún que la rotación se haga en un sentido o en el otro. La figura 7.4 ilus- 
tra acerca de estas dos matrices. 

Si comparamos los resultados de la multiplicación, observamos que se 
diferencian solamente en los signos. Si definimos la variable rotación para 
Que valga 1 cuando la rotación es en el sentido de las agujas del reloj, y 
—1 cuando el sentido es el opuesto, obtenemos una misma ecuación para el 
giro, independientemente de su sentido; podemos ver esto en la figura 7.5. 


xnuevo 
ynuevo = 


iejo x cosó + rotacion = yviejo x sen 
rotacion x xviejo x send + yviejo x cos0 


Figura 7.5. 


Se puede generalizar el programa anterior con la posibilidad de realizar 
también rotaciones: 


2995 REM *r” para la rotacion 
3040 1F respuestas="r" THEN GOSUB 5000 

4995 REM rutina de rotacion 

4598 REM la rotacion es de 5 grados en el dentid 
o del reloj 

4999 REM pero puede cambiar estos datos 

5080 angulo=3 

5010 rotacion=1 

5199 REN borra la figura anterior 

5200 GOSUB 2000 

5299 REN coeficientes de la transformacion 

52300 DES 

5310 xtransi=C0S (angulo) :ytrans2extransl:xtrans2 
=rotacion*SIN(angulo):ytransi=-xtrans2 

5499 REN calcula la figura girada 

5500 GOSUB 11000 

5599 REM dibuja la figura girada 

5600 GOSUB 2098 

5699 respuesta$="" 

5700 RETURN 

10999 REM cambio de datos por transformacion mat 
riícial 
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11000 FOR con=2 TO nundelin 

11010 almacen== (con) 

11020 x(con)=x (con) extransi+y (con trans2 
11930 y(con)=almacen*ytransity (con) *ytrans2 
11040 NEXT 

11100 RETURN 


Obsérvese que la rotación se produce alrededor del punto (0, 0). Es mejor 
poder seleccionar el centro de giro, lo que resulta sencillo de programar: 


30 xcentro=320: ycentro=200 
4996 REM el centro de la rotacion se selecciona 
con a/2/,/. y se fija 

4997 REM pulsando la tecla de espacio 

5099 REM fijacion del centro de la rotacion 
5100 GOSUB 15000 

5500 GOSUB 12000 

11999 REM rutina para transformar las coordenada 
sde la figura por cualquier transformacion matr 
icial con centro arbitrario 

12000 
12010 
12020 y 


12830 NEXT 
12040 GOSUB 11900 

12850 xine=xcentro: yinc=ycentro 

12060 FOR con=0 TO nundelin 

12670 x=x (con) : y=y (con) : GOSUB 10000: x (con) =x+ y le 
am =y 

12080 NEXT 

12100 RETURN 

14999 REM rutina de fijacion de un centro de la 
transformacion 

15000 TAG 

15004 REM correcciones para centrar un caracter 
en un punto; la izquierda debe ser 8 en modo 0 y 
4 en mado 1 

15005 correccionizquierda=2:correccionarribas4 
15010 MOVE xcentro-curreccionisquierda, ycentro+e 
orreccionarriba:PRINT CHR$ (129) 

15100 WHILE respuestas<>" " 
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15110 respuestas=LOWERS (INKEVS) 
15115 xinc=0: yin 
15120 JF respuestas: 
":GOSUB 15502 
15130 1F respuestas=" 
“"+GOSUB 15520 
15140 1F respuestas= 
JOSUB 15590 
15150 1F respuestas 
":GOSUB 15500 
15200 WEND 

15210 respuestas="" 
15220 MOVE xcentro-correccionizquierda, ycentro+c 
orreccionarribarPRINT CHR$(129)5 

15230 RETURN 

15499 REM borrar antiguo centro y dibujar el nue 
15500 REM 


"THEN yinc=Zrrespuestas=" 


THEN yáne=-2: respuestas= 


"," THEN xinc= 


Arrespuestas= 


" THEN xinc=Srrespuestas=" 


15510 MOVE xcentro-correccionizquierda, ycentr 
Otcorreccionarriba:PRINT CHR$(129)52xcentro=xcen 
trotxine: ycentrosycentro*yinc:MOVE «eentroccorre 
ecionizquierda, ycentro+correccionarriba:PRINT CH 
ReL129)7 

15600 RETURN 


Ampliación y reducción 


Ya vimos antes que cra fácil ampliar o reducir una figura, pero entonces 
no teníamos control sobre el centro de la ampliación. Con el método ma- 
tricial podemos introducir ampliaciones diferentes en la dirección de cada 
eje, lo que permite estirar las figuras en la dirección de uno de los ejes; 
los aspectos formales se pueden ver en la figura 7.6. 

Es fácil añadir esta posibilidad a nuestro programa: 


29% REM "g* para alargamiento 
2997 REM *p” para reduccion 

3050 1F respuestas="g" THEN GOSUE 6000 

3060 1F respuesta$="p" THEN GOSUB 6100 

5995 REM rutina de alargamiento o reduccion a es 
cala 

5996 REM el centro se selecciona con a/z/,/. y s 
e fija 
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E 


El triángulo 1 se transforma en el 2 mediante: 


31 62 
k 16 )-(5 a] 
302 54 


Con diferentes valores en la diagonal se obtiene un alargamiento en la dirección de un eje: 


Dz manera general, los alargamientos y reducciones vienen dados por: 


er leon se 


Figura 7.6. 


5997 REM pulsando la tecla de espacio 

5998 REM esta es la rutina de alargamiento 

5999 REM alargamiento a escala 1.1 en ambos ejes 
5 cambie el coeficiente si lo desea 

6000 escalax=1.1:escalay=1.1 
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6010 GOTO 6200 
6078 REM esta es la rutina de reduccion 

6099 REM reduccion a escala 0.9 en ambos ejes; c 
ambie el coeficiente si lo desea 

£100 escalax=2.9:escalay=0.9 

6199 REM fijacion del centro de alargamiento/red 
uccion 

6200 GOSUB 15000 

6299 REM borra la figura anterior 

£310 GOSUB 2000 

6399 REM coeficientes de la transformacion 

$400 xtransisescalax:ytrans2=escalayixtrans2=01 y 
transi=0 

6499 REM calcula la figura transformada 

6500 GOSUB 12008 

6599 REM dibuja la figura transformada 

6608 GOSUB 2200 
6679 respuestas: 
6700 RETURN 


Simetría 


La simetría (o reflexión) sobre el eje X o el eje Y se puede llevar a cabo 
con las matrices de la figura 7.7. 


e "lo 2 ) =(x -y) [simetría de eje XI 


e (e Sue Y (simetría de eje Y) 


Figura 7.7. 


Como ocurría con la rotación, las dos matrices son en esencia una sola. 
Para ver el efecto de la simetría es necesario trasladar los ejes, pues de 
lo contario la figura resultante se sale de la pantalla. 


2998 REM *+* para reflexion 
3070 1F respuestas="f" THEN GOSUB 7000 
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6995 REM rutina de reflexion sobre un eje 
6996 REM la reflexion es sobre un eje vertical o 
sobre un eje horizontal 

6997 REM que pasan por el punto que se desee 
6998 REM el punto se selecciona con a/2/,/. y se 
fija 

6999 REM al pulsar » lo que selecciona 
ademas el eje . 
7009 GOSUB 16009 

7099 REM coeficientes de la transformacion 


7109 1F respuestat=":" THEN xtransi=lzytrans2e-1 
ixtrans2=0: ytransi=0 ELSE xtransis-1:ytrans2=l1x 
trans2=D: ytrans: 


7199 REM borra la figura anterior 
7200 GOSUB 2000 

7299 REM calcula la figura transfornada 
7308 GOSUB 12000 

7399 REM dibujo de la figura reflejada 
7400 GOSUB 2020 
7499 respuestat= 
7508 RETURN 
15999 REM rutina de fijacion de un centro y un e 
je de la transformacion 

16009 TAS 

16204 REM correcciones para centrar un caracter 
en un punto; la izquierda debe ser 8 en modo A y 
4 en modo 1 

16805 correccionizquierda=2:correccionarrib: 
16018 MOVE xcentro-correccionizquierda, yeentrote 
orreccionarriba:PRINT CHR$(129)5 

16100 WHILE respuesta$<>"x" AND respuestasc)"y" 
16110 respuestaf=LOWERS (INKEYS) 

16115 xinc=B:yinc=0 
16120 1F respuestas: 
":GOSUB 16500 
16130 1F respuestas="2" THEN yines: 
JOSUB 16500 

16140 IF respuesta$="," THEN xinc=-4; respuestas 
OSUB 15508 

16150 IF respuestas="." THEN xinc=4trespuestas=" 
GOSUB 16500 

16200 WEND 


THEN yin 


srespuestas=" 


2: respuestas= 
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16220 MOVE xcentro-correccionizquierda, ycentro+e 
orreccionarriba:PRINT CHR$(129) 5 

16230 RETURN 

16499 REM borrar antiguo centro y dibujar el nue 
16500 REM 

16510 MOVE xcentro-correccionizquierda,yce 
ntrotcorreccionarriba:PRINT CHR$(129)31xcentro=x 
centrotxinc:ycentro=ycentrotyinc:MOVE xcentro-co 
rreccionisquierda,ycentrotcorreccionarriba: PRINT 
CHR$ (129) 5 

16609 RETURN 


La simetría sobre rectas diferentes de los ejes es más delicada y requiere 
otras transformaciones. 


Cizalladura 


Se trata de un movimiento en el que el desplazamiento de cada punto de- 
pende de su distancia al eje del movimiento: 


2999 REM *c* para cizallamiento 
3080 IF respuestas="c" THEN GOSUB 8000 

7995 REM rutina de cizallamiento en la direccion 
de un eje 

7996 REM el eje es vertical u horizontal 

7977 REM pasando por el punto que se desee 

7978 REM el punto se selecciona con a/2/,/..y se 
fija 

7999 REM al pulsar *x” o *y" , lo que selecciona 
ademas el eje 

Sono G0suB 16000 

8099 REM coeficientes de la transformacion 

B100 xtransi=1+ytrans2=1 

B110 1F respuestas="" THEN ytransi=1ixtrans2=0 
ELSE xtrans2=1:ytransi=0 

9199 REN borra la figura anterior 

8200 GOSUB 2000 

8299 REM calcula la figura transformada 

8300 GOSUB 12000 

8399 REN dibujo de la figura transformada 
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6400 GOSUB 2000 
8499 respuestat= 
8500 RETURN 


Ejercicios 


1. Todas las transformaciones del programa se realizan sobre una figura 
extraída de un DATA. Añada una rutina al programa que le permita 
dibujar una figura y luego transformarla. 

2. Modifique el programa para que sea posible que la figura inicial per- 
manezca en la pantalla junto a la transformada, (Esto puede producir 
dibujos interesantes.) 

3. Las transformaciones matriciales se pueden utilizar en la obtención de 
formas especiales, como las que obtuvimos en el capítulo 4 mediante 
rotación repetida y alargamiento. Escriba un programa que permita 
especificar una serie de transformaciones sucesivas a realizar con una 
figura. Haga que se pueda elegir el número de veces que se repetirá 
cada transformación. Tras introducirle estos datos, el ordenador de- 
berá realizar las operaciones indicadas, dibujando las figuras que va- 
yan resultando. Haga que cada figura se dibuje en un color, para 0b- 
tener mejores efectos. 

4. Los programas de CAD (Computer-Aided Design o “Diseño asistido 
por ordenador”) contienen un menú de figuras diversas. Cuando el 
usuario clige una de clas con el cursor, la figura queda pegada al cur- 
sor y se desplaza con él hasta que la figura se fija en el lugar deseado. 

Escriba un programa sencillo para CAD que permita simplificar el di- 
bujo de una casa. Incluya como figuras varios tipos de puertas y ven- 
tanas. (Añada detalles que distingan cada tipo, pero no tantos como 
para que resulte demasiado lento el dibujo y borrado de las figuras.) 
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Técnicas de Programación 
de Gráficos en el Amstrad 


La calídad de Ja presentación en la pantalla es fundamontal para muchos 
programas. Este libro enseña a aprovechar plenamente las excelentes 
funciones gráficas del Amstrad. En los ejemplos se incluyen rutinas que 
el lector puede incorporar fácilmente a sus propios programas. 


Entre.los temas tratados se encuentran los juegos de tipo «máquinas tra- 
gaperras», la animación de figuras sencillas, realización de imágenes en 
color y su grabación en cinta, diseño de diagramas de barras y de secto- 
res, cambios de escala y transformación de figuras y muchas otras aplica: 
ciones interesantes, En todos las capítulos se dan sugerencias pera arn- 
plior y mejorar los programas de los ejemplos. 
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